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Prólogo 
del traductor 


De grandes piedras se hacen los castillos, pero los detalles que los 
embellecen no son más que guijarros. Un programa en BASIC puede 
llegar a ser todo lo robusto e “inteligente” que se quiera, pero tal vez no 
impresione tanto como la velocidad o posibilidades que conlleva el código 
máquina. No hay nada como juntar ambos lenguajes para obtener progra- 
mas de primera calidad. 

Este libro no pretende enseñarte nada que todavía ignores; sin embar- 
go, es muy posible que te aclare muchos de los secretos de tu Amstrad. 
Tampoco está escrito para que aprendas las instrucciones del microproce- 
sador Z-80 y su manejo, sino más bien para que conozcas las subrutinas y 
parte del sistema operativo de tu ordenador. De todas formas estoy seguro 
que algo te va a enseñar y que algo vas a aprender. 

No importa en absoluto que carezcas de conocimientos sobre el len- 
guaje máquina. La labor de este libro es llevarte más allá de los límites del 
BASIC y acercarte todo lo posible a las entrañas de tu Amstrad. Por eso 
el lenguaje máquina no es la meta del libro, sino tan sólo un medio. 
Difícilmente se encontraba hasta hace poco un libro para el Amstrad que 
no fuera de inicialización o aprendizaje. La poca literatura que trataba 
seriamente del tema estaba en lengua extranjera. Es más, allá por el año 
1984 en el que adquirí mi Amstrad, no había un solo libro que me 
enseñara cuáles eran las auténticas posibilidades del aparato. 

Se hacía necesario un libro así. Presentando individualmente cada una 
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de las posibilidades del ordenador, y obteniéndolas con la máxima veloci- 
dad. Dejando a la imaginación del usuario la combinación de cuantas 
rutinas quiera. Además, no está orientado hacia una aplicación específica, 
por lo que su utilidad es grande frente a todas las posibles exigencias. 
Rutinas en lenguaje máquina para Amstrad es verdaderamente un libro que 
no se puede soltar una vez abierto. Permite al usuario conocer más a 
fondo su ordenador, a la vez que resuelve multitud de problemas que 
resultan inviables desde el BASIC. Y refiriéndome a ti en concreto, obser- 
varás la cantidad de aplicaciones que se te ocurren según vayas probando 
una a una las rutinas aquí presentadas. Espero sinceramente que encuen- 
tres en este libro la solución a tus dudas y problemas con el ordenador. 


Notas sobre programas 
ensambladores 


Existen algunas diferencias entre los distintos programas ensamblado- 
res de código máquina. Unos ofrecen más facilidades, como el editado por 
Hisoft, y otros son más pequeños, pero igualmente válidos, como el de 
Honey Fold. 

La principal diferencia está en los directivos del ensamblador. Un 
directivo es una seudo-instrucción que sólo es entendida y efectuada por el 
propio ensamblador, y que no afecta para nada al programa en código 
máquina. Los listados de este libro fueron realizados con el programa 
DEVPAC de Amsoft, y los directivos que puedes encontrar en los listados 
deben ser interpretados del siguiente modo: 


ORG dirección: Indica al ensamblador la “dirección” de la me- 
moria donde debe almacenar el código máqui- 
na. Suele insertarse al comienzo de los progra- 
mas. 

DEFW número: Reserva 2 bytes de la memoria, guardando en 
ellos el byte bajo y alto del código binario 
equivalente al número. Un directivo análogo 
puede ser WORD. 


DEFB número: Reserva un byte de la memoria, guardando en 
él el código binario del número que le acompa- 
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ña. El número debe estar en la gama 0-255. El 
directivo equivalente a éste, para otros ensam- 
bladores es: BYTE. 


DEFS número: Aumenta el valor del puntero el número de 
posiciones de memoria que indique “número”. 
Simplemente reserva bytes de memoria sin dar- 
les ningún valor concreto. 


DEFM “expresión”: Almacena consecutivamente en la memoria los 
códigos ASCII de cada uno de los caracteres 
que contenga la “expresión”. Sirve para guardar 
mensajes y texto en general. Otro directivo 
equivalente es TEXT. 


Si no dispones de ningún programa ensamblador, podrás aprender en 
el capítulo 2 cómo guardar los bytes correspondientes a cada rutina en la 
memoria. Esos bytes vienen expresados en código hexadecimal en cada 
una de las rutinas. 


Introducción 


Una de las más desalentadoras perspectivas que se presentan ante el 
programador de código máquina es el diseño de pequeñas rutinas para 
ordenador, tales como escribir cadenas de caracteres, guardar bloques de 
datos en el cassette o sistema de almacenamiento, o incluso leer caracteres 
del teclado. Estas rutinas aparecen a menudo en todo tipo de programas, 
pero el trabajo inicial de escribirlas puede resultar tedioso. Afortunada- 
mente las rutinas presentadas en este libro resuelven el problema. Todas 
ellas han sido probadas en el Amstrad CPC 464 con sistema de cassette; 
pero funcionan igualmente bien en el modelo 664 que incorpora unidad de 
disco, aunque en algunos casos habrá que hacer pequeñas modificaciones. 
Las rutinas de pantalla han sido diseñadas para su uso sin ventanas 
definidas; pero si prefieres definirlas también funcionarán sin problemas. 
En general las rutinas trabajarán correctamente en los tres modos de 
pantalla, y algunas resultarán de gran utilidad para el programador de 
BASIC. 

Los programas fueron listados utilizando el ensamblador DEVPAC de 
Amsoft. Quisiera expresar mi agradecimiento a los editores que me propu- 
sieron llevar a cabo esta obra y también reconocer la ayuda de Amsoft en 
la preparación de este libro. Finalmente, me gustaría dedicárselo a mi 
madre y a mi padre por todos los años de tolerancia especial que me han 
demostrado. 

También quiero agradecer la colaboración de algunos gatos del barrio, 
que demostraron la posibilidad de programar un microordenador incluso 
ante el ataque de un gato. 


JOE PRITCHARD 
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Lenguaje máquina 
en el Amstrad 


Este libro te ofrecerá una amplia variedad de rutinas en código máqui- 
na listas para funcionar; sin embargo, para obtener mayor provecho a la 
hora de programar, te vendrán bien algunos conocimientos sobre progra- 
mación en código máquina en el Amstrad y unas cuantas notas sobre la 
estructura del sistema operativo. 


Las rutinas en este libro 


Por supuesto, lo primero que hay que hacer es introducir los progra- 
mas en el ordenador. El mejor método para conseguirlo es usar un 
programa ensamblador, como el Amstrad DEVPAC publicado por Am- 
soft. Alternativamente podemos usar la orden POKE para introducir los 
bytes directamente en memoria. Estos bytes son los que conforman el 
programa en código máquina. En este libro verás que todos los programas 
aparecen listados de la siguiente forma: 


Dirección Código Listado 
en memoria hexadecimal en ensamblador 
9D08 250000 LD HL), 0000 
GDOE CDCOBE CALL  *HBBCO 
DOE co RET 


13 


Empleo 


14 


de modo que puedas usar cualquiera de los dos métodos. El listado en 
ensamblador puede ser tecleado en un programa ensamblador y los bytes 
en hexadecimal pueden ser almacenados en memoria mediante POKE por 
distintas vías, de las cuales la más sencilla es un programa BASIC de este 
tipo: 


FOR I=0 TO N : REM N=numero de bytes 
READ A$ 

POKE (direccion+1),VAL("R"+A$) 

REM direccion, es donde el codigo se 


almacenara en la memoria. 

NEXT 

DATA DD,46E,00,DD,46,01,7E,DD,6E,02,DD 
,66,03,86,77,C9 


La sentencia DATA contiene las representaciones hexadecimales de los 
bytes que conforman el programa. Es obvio que este método es muy útil 
para combinar rutinas en lenguaje máquina con programas en BASIC, 
función que se realiza a menudo. El hecho de que los programas se listen 
con bytes hexadecimales permitirá usar las rutinas del libro a aquellos 
programadores sin acceso a un ensamblador. 

Muchas de las rutinas se escribirán de forma que funcionen en cual- 
quier dirección de memoria disponible por el usuario sin alteración: a 
estos programas los llamaremos “relocalizables”. Otras en cambio requie- 
ren una dirección concreta en la memoria para poder funcionar. Tales 
rutinas serán “no relocalizables”, y habrá que realizar algunos cambios 
para conseguir que funcionen en dirección distinta a la asignada. De 
cualquier modo detallaré todo aquello que sea necesario para que realices 
esos cambios. Así podrás seleccionar entre las rutinas listadas en este libro 
aquellas que precises para una aplicación concreta y también cargarlas en 
memoria donde quieras. 

Sin embargo, ¿en qué posición de la memoria del ordenador puede 
almacenarse el código máquina? Si ya has realizado pequeños programas 
en código máquina en el Amstrad, quizá prefieras pasar por alto esta 
sección y reincorporarte en el estudio de la rutina CALL. Pero si quieres 
refrescar conocimientos sobre el tema, allá vamos. 


de la memoria en el Amstrad 


La zona denominada “depósito de memoria” es el área de memoria 
utilizada para almacenar nuestros programas en BASIC y sus variables. 
Todos los programas que escribamos en código máquina deben ser prote- 
gidos contra superposiciones accidentales del programa en BASIC, y de- 


ben ser preservados de los destrozos del resto del sistema operativo, que 
usa varias áreas de memoria como espacio de trabajo. La forma de crear 
esta área protegida de memoria es bastante simple: “capturamos” parte del 
depósito de memoria y vedamos la entrada al BASIC. 


8.FFFF 


RAM 
de pantalla 


Mapa simplificado 
de la memoria del 
Amstrad 


8.4000 
depósito 
de memoria 


Al último byte de RAM disponible para el BASIC se le asigna un 
nombre especial —HIMEM— y la orden PRINT HIMEM devolverá 
siempre la dirección del último byte de memoria disponible para BASIC 
en cada momento. Poniendo en marcha el sistema, la dirección es 43903 o 
S¿AB7F. En estas circunstancias el byte de la dirección 43904 es parte de 
la definición del carácter número 240, que es el primer carácter definible 
por el usuario de que dispone el programador al conectar el ordenador. 

Nos “adueñamos” de parte de la memoria disponible normalmente por 
el BASIC decrementando en la memoria el valor de HIMEM hacia la 
dirección £0000. Esto tiene por efecto la creación de un espacio entre 
HIMEM y el primer byte de la zona de caracteres definibles por el 
usuario. Desplazamos el valor de HIMEM usando la orden MEMORY. 
Por ejemplo: 


MEMORY 39999 


localizará a HIMEM en la dirección 39999, permitiéndonos usar el espacio 
situado entre las direcciones 40000 y 43903, ambos inclusive, para las 
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rutinas en lenguaje máquina. Esto es suficiente para la mayoría de las 
aplicaciones. Habrá que tener en cuenta un par de cuestiones sobre el uso 
de la orden MEMORY. La primera es el uso aconsejable de SYMBOL 
AFTER para reservar espacio a tantos caracteres definidos por el usuario 
como requiera tu programa, antes de usar MEMORY para variar el valor 
de HIMEM. La segunda es que SYMBOL AFTER no funcionará correc- 
tamente mientras algún fichero del sistema de cassette permanezca abierto. 
Esto es así porque la apertura de un fichero produce una variación en el 
valor de HIMEM de forma que SYMBOL AFTER no lo hallará donde 
esperaba. 

Por eso, usando MEMORY, podemos reservar una zona a salvo para 
nuestros programas en código máquina en la que almacenar mediante 
POKE los bytes que constituyen los programas, tal y como mencioné 
anteriormente en este capítulo. Ahora hemos de conseguir que actúe el 
código máquina. Esto lo logramos a través de la sentencia CALL. 


a los programas en código máquina 


Los programadores del Amstrad tenéis suerte al contar con la senten- 
cia CALL; la mayoría de los ordenadores caseros tienen una escasa 
comunicación entre el BASIC y el lenguaje máquina. La sentencia CALL 
del Amstrad está muy mal documentada en la Guía del usuario del Amstrad 
CPC 464, pero en realidad es una orden muy versátil y polifacética. Como 
la usaremos continuamente a lo largo del libro para llamar a nuestras 
rutinas, vamos a examinarla con cierto detalle. 

Puedes utilizar la instrucción de dos formas distintas. He aquí un 
ejemplo de ambas formas de operar: 


CALL  £BD19 
CALL  40000,A%,B%,C0% 


La primera de ellas simplemente provoca la ejecución de la rutina en 
lenguaje máquina localizada en la dirección £¿BD19 de la memoria RAM 
del Amstrad. La segunda sentencia produce la ejecución de la rutina de la 
dirección 40000, pero además hace que la rutina de lenguaje máquina 
disponga del valor actual de las variables A%, B% y C% del BASIC. 
Comprobarás que esto es muy útil. Las variables AZ, B% y C%, se 
denominan PARAMETROS de esta llamada CALL. Ahora que conoce- 
mos este uso más técnico de la sentencia, podemos conseguir una interac- 
ción directa de los números y cadenas de variables entre el BASIC y 
nuestras rutinas en código máquina. 

Así pues, vamos a profundizar en la llamada CALL y sus parámetros. 
En este libro consideraremos únicamente las rutinas que usan números 
enteros y cadenas; la experiencia ha demostrado que la mayoría de las 


aplicaciones que trabajan con una matemática compleja y números reales 
se ejecuta mejor en BASIC. Esto se debe en parte a que la realización de 
los programas en código máquina lleva más tiempo, y generalmente no 
son tan eficientes como las rutinas presentes en la ROM de BASIC para el 
cálculo de operaciones aritméticas complejas. 

Se distinguen tres amplias clases de parámetros que pueden ser transfe- 
ridos como parte de una sentencia CALL, y una sentencia puede contener 
tantos parámetros como puedas incluir en una línea (limitada a 255 
caracteres). Claro está que los parámetros de una determinada sentencia 
CALL pueden pertenecer a cualquiera de las tres clases. Los tipos de 
parámetros son: 


1. Un número, como 100, 2 ó 1000; un nombre de una variable entera, 
como A%,; o una expresión que evaluada dé como resultado un 
entero. El valor transferido debe pertenecer al intervalo (0, 65535), 
aunque, como veremos más tarde, hay un par de puntos a tratar con 
precaución. Si una variable entera actúa como parámetro, como A%, 
y al ser incluida en la sentencia CALL no se le asignó un valor previo, 
entonces la variable será considerada como portadora del valor 0. Un 
ejemplo de este tipo de sentencia CALL sería 


CALL  40000,A% 


donde 40000 es la dirección de la rutina llamada, y A%, es el 
parámetro. 

2. El nombre de una variable entera precedido del carácter “ (w” como 
aA%,. Este método de transferir un parámetro numérico a una rutina 
de código máquina también permite una transferencia de información 
en los dos sentidos, hacia y desde el programa en lenguaje máquina, 
como pronto vamos a ver. 

3. Una variable literal precedido por “(w”. Esta es la única forma de 
transferir cadenas de caracteres a rutinas de código máquina. No 
podemos pasar cadenas constantes como “José” a una rutina, sino 
sólo las variables. 


Ahora, ¿cómo podemos acceder a los parámetros transferidos a los 
programas en código máquina? Al comienzo de la rutina en la dirección 
llamada, dos de los registros de la CPU han sido modificados por el 
intérprete de BASIC para ayudarte a acceder a los parámetros transferi- 
dos. El registro A contiene el número de estos parámetros, y el registro 
índice IX apunta a un área de memoria llamada bloque de parámetros, 
que utiliza dos bytes para cada parámetro transferido a la rutina de 
código máquina. IX apunta a los parámetros del modo indicado en la 
figura; el contenido exacto de cada dos bytes de entrada dependerá del 
tipo de parámetro. 


CALL  40000,paral,para2 
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generará: 


byte alto del Registro A=2 
parámetro 1 (IX+3) 
byte bajo del (IX +2) 
parámetro 1 

(IX+1) 


byte alto del 
parámetro 2 
byte bajo del 
parámetro 2 


Examinaremos ahora el contenido de lo que cabe encontrar en cada 
bloque de parámetros de entrada para cada tipo de parámetro. 


<————— (IX) apunta aquí 


Números o variables enteras 
Aquí se incluyen elementos como AZ o 5, y el bloque de parámetros 


de entrada contendrá una representación del número en binario de dos 
bytes. Así, para CALL 40000,3 el bloque de entrada sería: 


ato [2207] 
bajo [37] 00 opa aqu 


Una pequeña cuestión a tener en cuenta: en las dos llamadas 


CALL  40000,-1 
CALL  40000,65535 


se entenderá como bloque de parámetros de entrada £FFFF, ya que ésta 
es la representación en complemento a dos de —1; que es el sistema que 
utiliza el Amstrad para almacenar internamente los enteros negativos. Así, 
si intentamos transferir un valor como 65535 a una rutina en código 
máquina dentro de una variable entera, como 


A7=65535: CALL  40000,AZ 
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se producirá un error de desbordamiento, porque las variables enteras sólo 
pueden tomar valores dentro del intervalo — 32768 a 32767. Resulta bas- 
tante fácil introducir en un registro o un par de registros los valores 
contenidos en el bloque de parámetros. 


LD L, (IX+0) 5 Byte bajo. 
LD H, (1X+1) 5; Byte alto. 


Variables precedidas de (u 


Hasta aquí, la comunicación entre el BASIC y el lenguaje máquina ha 
sido tratada en un solo sentido: hemos aprendido a transferir valores 
desde el BASIC al código máquina, pero no a la inversa. La utilización de 
(nos permitirá hacerlo. El bloque de parámetros de entrada para un 
parámetro de este tipo no será ahora el valor de la variable, como en el 
caso de A% o 5, sino la dirección de la variable; esto es, el lugar donde se 
ha almacenado .la variable en la memoria de BASIC. 

Por ejemplo: 


CALL 40000, en. 


generará un bloque de parámetros que contendrá la dirección en RAM de 
la variable H%. En cuanto al argumento, supongamos que los dos bytes 
del bloque de parámetros de entrada contienen el valor 20000. Esto 
indicaría que el byte bajo de H% está almacenado en la dirección 20000 y 
que el byte alto de H%, está almacenado en la dirección 20001. Esquemáti- 
camente, esto se puede mostrar así: 
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Y 


Bloque de parámetros Area de almacenamiento de variables 


La utilidad de todo esto, como verás, es que, alterando los valores 
contenidos en los dos bytes utilizados para almacenar el valor de H%, 
estaremos alterando su valor desde nuestro programa en lenguaje máqui- 
na. Así en este ejemplo que asigna el valor 7 a H%, cargaríamos 7 en la 
posición 2000 y O en la posición 20001. Como pequeña demostración, 
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examina el siguiente programa, al que accederíamos mediante CALL 
40000,0A%,n. 


40000 

DD7E0O LD A, (IX+0) 3 Introduce el valor de n en el registro A. 
DD6E02 LD L, (1X+2) 3 Toma la direccion de la variable entera 
DD6603 LD H, (1X+3) 5 y la almacena en el par HL . 

77 LD (HL),A 3 Guarda en esa direccion el valor que 

c9 RET 35 contenia A y regresa al BASIC. 


A%, tendría que ser inicializada a O antes de hacer la llamada (CALL). 
Como el programa afecta únicamente al byte bajo de la variable en la 
memoria, n tendrá que tener un valor comprendido entre O y 255. Por 
supuesto que cualquier nombre de variable entera puede ser usado y no 
sólo A%. Así: 


jose/=0:CALL 40000,8joseZ%.6 
paco%=0: CALL 40000, Bpaco%,67 


son ambas expresiones correctas. En el primer caso, jose% tomará el valor 
6 después de la orden CALL, y en el segundo caso, paco%, contendrá el 
valor 67. n puede ser también una variable, siempre que no tenga el pre- 
fijo E. 

Una última cuestión sobre el uso de (=. Este prefijo permite al usuario 
acceder a la dirección de cualquier variable determinada, siempre y cuando 
la variable en cuestión haya sido previamente utilizada, incluso si se ha 
inicializado con el valor 0. Si intentas hacer una llamada mediante la 
orden CALL, usando (2 con una variable aún no inicializada, el Amstrad 
te responderá con un mensaje de error. La explicación es obvia: si una 
variable aún no ha sido utilizada, el intérprete de BASIC no tendrá 
ninguna dirección en la que pueda almacenar el bloque de parámetros. Es 
decir, aún no conoce esa dirección. Cada vez que inicialices una variable, 
el BASIC creará un espacio en memoria para cada una, asignándole a esa 
dirección el nombre de la variable que hayas creado. Este espacio será 
preservado, ya estés trabajando en código máquina o en BASIC. 


Transferencia de cadenas 
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Aunque toda constante numérica, como “1” ó “4000”, puede ser trans- 
ferida a los programas en código máquina, aún no podemos pasar cadenas 
constantes como “Hola” o “Amstrad” a una rutina en código máquina. 
Para transferir cadenas literales debes asignarlas a variables literales como 
MS, PEZS$, etc. Como en el caso anterior, estas variables deben estar 
precedidas por el carácter (Q. 

De nuevo habrá que inicializar la variable literal antes de ser utilizada 
en una sentencia CALL, permitiendo así al intérprete de BASIC trabajar 


en la memoria, allí donde se encuentre almacenada la cadena. Una senten- 
cia que contiene una variable literal es, por ejemplo: 


A$="PACO": CALL 40000,RAS$ 


Los dos bytes del bloque de parámetros de entrada para este tipo de 
parámetros serán interpretados de la siguiente forma. Estos apuntan hacia 
un área de la memoria llamada BLOQUE DESCRIPTOR de la cadena, el 
cual nos suministra información útil sobre la cadena literal. 


bloque de parámetros DESCRIPTOR CADENA 


El descriptor nos señala la longitud de la cadena y su paradero en la 
memoria. 

Es cierto que también se puede usar la orden POKE para alojar en 
ciertas posiciones de memoria los valores de la cadena, y después hacer 
que tus rutinas de código máquina accedan a ellas. Y la orden PEEK 
puede ser utilizada para extraer desde el BASIC los valcres almacenados 
por el lenguaje máquina. Sin embargo, CALL nos proporciona un método 
elegante y eficiente para todos los casos, incluso los más sencillos, de ahí 
su uso frecuente en este libro. 

A continuación, y antes de meternos con el uso de las llamadas al 
sistema operativo de la ROM, veremos algunas indicaciones sobre la 
utilización de las rutinas en lenguaje máquina del Amstrad. 


1. Utilización de los registros alternativos: 


Bajo ninguna circunstancia deberás usar los registros alternativos del 
Z-80. Todos ellos son utilizados por el sistema operativo con diferentes 
propósitos, y dado que el SO puede requerir alguno de ellos en cualquier 
momento, podría ser fatal intentar alterar el contenido de cualquiera de 
estos registros. 


2. Superposición de la RAM sobre la ROM: 


Gracias a una inteligente artimaña del diseñador, la ROM que contiene 
al sistema operativo ha sido superpuesta a la RAM que puede ser utiliza- 
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da para almacenar el BASIC o los programas en código máquina. Asimis- 
mo, la ROM que contiene el BASIC está superpuesta a la memoria de 
pantalla. En circunstancias normales, la RAM será accesible al programa- 
dor; si quieres leer directamente en la ROM tendrás que hacerlo con cierta 
habilidad. 


3. Estado de los registros en la CPU: 


A menudo las rutinas de la ROM utilizadas tienden a dejar algunos 
registros alterados, y en muchos casos el registro de flags también se 
altera. Por ello, si quieres conservar algún registro, deberás almacenarlo en 
la pila mediante la orden PUSH antes de llamar a las rutinas de la ROM. 


4. La orden CALL: 


Al trabajar con rutinas en código máquina se suele aconsejar la preser- 
vación de los registros antes de retornar al BASIC desde una rutina 
llamada mediante la orden CALL. Sin embargo, he comprobado que la 
máquina recupera todo muy bien sin necesidad de todo esto, cuando se 
utiliza la orden CALL. 


Utilización de llamadas a la ROM 


Utilizaremos rutinas de la ROM del Amstrad para aquellas funciones 
más comunes, tales como escribir en la pantalla o leer un carácter del 
teclado. Todas estas rutinas son accesibles llamando a direcciones concre- 
tas de la memoria RAM, mediante el uso de la instrucción CALL del Z-80 
que manejamos desde los programas en código máquina. Al conectar o 
reinicializar el aparato, el sistema operativo se encarga de preparar estas 
direcciones. Todas estas rutinas se encuentran en un área de la memoria 
llamada BLOQUE DE SALTOS, y todas las llamadas a las rutinas de la 
ROM deberán pasar previamente por el mismo, debido a las razones que 
paso a exponer. 

La primera razón, que examinaremos después con más detalle, es que 
la ROM se encuentra normalmente inhibida, y, por ello, para usar cual- 
quier rutina de la ROM, debemos primero habilitarla. Esto lo realiza 
automáticamente el bloque de saltos con cada rutina en particular. La 
segunda es que las direcciones de este bloque de saltos están garantizadas 
por Amstrad, sin importar cuántas versiones diferentes haya del sistema 
operativo. Así, una llamada a la dirección £KBBSA siempre cederá el 
control a la rutina del SO que imprime un carácter en pantalla, sea cual 
sea la versión del SO que gobierne el aparato. Esto convierte al Amstrad 
en una máquina a “prueba del futuro”, asegurando que las posibles 
alteraciones del sistema operativo no invalidarán programas ya escritos en 
las primeras versiones del SO. 


La tercera y última razón es que podemos alterar el bloque de saltos 
para una rutina en concreto del sistema operativo, y variar con ello el 
comportamiento del mismo en determinados casos. 


El bloque de saltos 


Ocupa un área bastante grande de la RAM, justo encima del depósito 
de memoria, y permite acceder a todas las rutinas importantes del sistema 
operativo y a algunas de las rutinas de la ROM que contiene el BASIC, A 
continuación se muestra una entrada típica del bloque de saltos. 


DIRECCION EN MEMORIA VALOR 

xBB18 «CF 

uBB1O 536 Byte bajo de la direccion. 
xBB1A 29B Byte alto de la direccion. 


CF es un código un tanto especial en el Amstrad; descrito con 
sencillez, 8¿CF especifica un salto a una rutina contenida en la ROM en la 
dirección cuyo código viene dado por los dos bytes que le acompañan. 
Los dos bytes de dirección, en este ejemplo £:9B56, son codificados del 
siguiente modo: 


Bit 15. Este bit de la dirección controla la ROM del BASIC. Si se 
encuentra activado (“1”), entonces la ROM de BASIC permanecerá inhibi- 
da. Si se encuentra en el estado 0, entonces la ROM de BASIC es 
habilitada. 


Bit 14. Este bit de la dirección controla la ROM del sistema operati- 
vo. Igual que antes, si su estado es “1”, la ROM del SO estará inhibida, y 
si su estado es 0, la ROM del SO podrá ser utilizada. 


Los bits O a 13 de la dirección especifican la dirección de la rutina 
contenida en la ROM seleccionada por los dos bits de mayor peso antes 
mencionados. Concretando el ejemplo, escribamos el valor de £:9B56 en 
binario. 


1001 1011 0101 0110 


Bit 15 Bit O 


En este caso, el bit 15 está puesto a 1, por lo que inhibirá la ROM que 
contiene el BASIC. El bit 14 está puesto a 0, lo que quiere decir que la 
rutina se encuentra en la ROM del sistema operativo, que permanece 
habilitada gracias a este bit. La dirección contenida en los bits O al 13 es 
£1B56, siendo precisamente la dirección de la rutina contenida en el SO 
que será llamada normalmente con una orden CALL dirigida al bloque de 
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saltos en £:BB18. El byte £CF no es el código de una instrucción 
propiamente dicha del Z-80; más bien es una “seudo-operación” imple- 
mentada por Amstrad para esta particular aplicación. 

Veremos más adelante cómo alterar el bloque de saltos para aumentar 
o sustituir las funciones normales del sistema operativo. Si haces esto, el 
£C3, código de JP, remplazará a £CF, y los dos bytes siguientes compon- 
drán la dirección en RAM de la rutina que hayas escrito. Así, una entrada 
en el bloque de saltos como 


YC3 
200 
xAo 


provocará un salto a la rutina en la dirección £A000. La rutina podrá 
terminar entonces de dos formas diferentes: la primera es con una 
instrucción RET que hará que la rutina que has añadido sustituya total- 
mente a la función normal del sistema operativo; la segunda es terminar 
tu programa con el contenido original del bloque de saltos, comenzando 
con el byte £¿CF. Observa que parchear de esta forma el sistema operativo 
puede causar problemas con posteriores versiones del mismo. En este 
último caso, primero se ejecutará tu rutina y posteriormente el control 
pasará a la rutina del SO. 

¡Y esto es todo! El resto del libro contiene aquello que te ha animado 
a adquirirlo: rutinas en código máquina preparadas y documentadas para 
el Amstrad. Espero que experimentes a fondo con las rutinas; posiblemen- 
te las desarrolles y perfecciones consiguiendo incluso mayor versatilidad. 


Rutinas de 
salida de textos 


En BASIC la salida de textos es bastante fácil, pues contamos con la 
orden PRINT que realiza todo el trabajo. Pero esto no es así en código 
máquina, por lo que tendremos que encadenar varias rutinas para conse- 
guir algo tan corriente como escribir en la pantalla mensajes y números. 
Veremos algunas de ellas en este capítulo. 

La primera se llama ECADEN, que significa Escribe CADENA, y nos 
permite escribir mensajes en la pantalla. 


ECADEN (Escribe CADENA) 


Escribe una cadena de caracteres en el cauce (stream) seleccionado y en 
la posición de pantalla especificada. El color será el asignado a los textos. 
Los códigos de control se imprimen en pantalla, pero no tienen efecto. La 
rutina es relocalizable. 


Requisitos de entrada: B será la coordenada X. 
C será la coordenada Y. 
IX apunta a la cadena en memoria. La cadena 
debe terminar con un CHR$(0). 


Condiciones de salida: Todo alterado. 


Longitud: 37 bytes. 
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10 5 + ECADEN +». 


2518 —DDES 20 PUSH IX 

2514 CD54BB 30 CALL *BBS45 Permite la salida de caracteres 
35 5 por el cauce ( pantalla ) 

251D 3E1F 40 LD A, $1F 

251F CDSABB 50 CALL *BBSA;5 Posicioma el cursor de textos 

2522 78 60 LD A,B; mediante CHRS$ (31) 

2523 CDSABB 70 CALL *BBSA 

2526 79 go LD A,C 

2527 CDS5ABB 90 CALL *BBSA 

252A DDEi 100 POP. IX 

232C DD7EO0O 110 BUCLE LD A, (IX+0)5Extrae caracter 

252F FEOO 120 cP 00; Es cero 7? 

2531 C8 130 RET 25 Si asi es, termina 

2532 DDES 140 PUSH IX 

2534 CD5DBB 150 CALL *BBSD;5 Imprime el caracter 

2537 DDE1 150 POP IX 

2539  DD23 170 INC — IX5 Apunta hacia el siguiente caracter 

253B 18EF 180 JR BUCLE; Repite el ciclo 

Comentarios 


Si una frase o un mensaje es demasiado largo y se sale de la línea en 
que se inició, continuará en la siguiente línea. 

El mejor modo de ver este programa en funcionamiento es teclear el 
programa de muestra que se lista a continuación. Se añaden algunas 
instrucciones en código máquina, pero sólo para inicializar los registros 
antes de llamar a la rutina ECADEN. Estas instrucciones adicionales son: 


LD IX,%9C40 3 Direccion de la cadena 
LD B,nn 3 Coordenada X introducida con POKE 
LD C,nmn 53 Coordenada Y introducida con POKE 


Cuando se llama a la rutina ECADEN los valores de los registros B y 
C deben ser apropiados para el modo de pantalla que se esté utilizando en 
ese momento. El programa en BASIC es: 


10 REM Demostracion de ECADEN 

20 MEMORY 39999 

30 WINDOW +t1,1,20,20,23 

40 CLS 

50 GOSUB 1000 

60 LOCATE $1,1,1 

70 INPUT +1, “Posicion de X"3x 

80 INPUT +$1,"Posicion de Y"3y 

90 INPUT +1, "Cadena :"ja$ 

100 FOR I=1 TO LEN(a$) 

110 POKE (39999+1),ASC(MID$ (a$, 1)) 

120 NEXT 

130 POKE (39999+1),0: REM Finaliza la 
cadena en memoria 

140 POKE 40205,x:POKE 40207,y 2: REM 


ooo. O 
OO OOOoOoOomsOo 


o 0.0 


Introduce las coordenadas X e Y 


' ] 

I i 
El 150 CALL 40200 19 
Sl 160 CLS $1 

170 GOTO 40 ¡O 

j 1000 REM Rutima que efectua el POKE del ] 
O; codigo maquina O 

1010 FOR 1=0 TO 44 | 
o! 1020 READ a$:POKE (40200+1),VAL("2"+a5$) O 

1030 NEXT 
o! 1040 RETURN to 

1050 DATA DD,21,40,90,06,00,0E,00  : 
o! REM Inicializacion de los registros ] o 

| 1060 DATA DD,ES,CD,54,BB,3E,1F,CD,5A, BB, 
o! 78,CD,S5A,BB,79,CD,5A,BB,DD,E1,DD,7E 

,00,FE,00,08,DD,ES,CD,S5D,BB,DD,E1, O 
o! DD,23,18,EF Lo 


La ejecución de este programa te permitirá situar en la pantalla una 
cadena desde el código máquina. 

Te habrás dado cuenta de que en la rutina antes expuesta usamos un 
código de control, en este caso el código ASCII 31, para situar el texto en 
la pantalla. La guía del usuario de Amstrad muestra los distintos códigos 
de control disponibles, y explica sus efectos. Examinaremos ahora una 
rutina corta que nos permite usar estos distintos códigos de control desde 
nuestros programas, de forma que podamos aprovechar a fondo las facili- 
dades que ofrece el ordenador Amstrad. 

Por cierto que la lista podrás encontrarla en las páginas 2 a 5 del 
capítulo 9 de la guía del usuario. Una rápida ojeada al mismo te revelará 
muchos códigos de utilidad. Además también verás que cada código de 
control tiene un carácter imprimible asociado al mismo, siendo este carác- 
ter el que aparece en la pantalla con la rutina ECADEN. La siguiente 
rutina que estudiaremos, ECONTR, no imprime nada en la pantalla, sino 
que EJECUTA los códigos de control; de esta forma, al transferir 
CHR$(7) a ECONTR, se generará un pitido en vez de imprimirse el 
carácter asignado a este código que sería un pequeño “invasor del es- 
pacio”. 


ECONTR (Envía código CONTRol) 


Envía una cadena de códigos de control a la VDU de textos. La rutina 
es relocalizable. 


Requisitos de entrada: B contiene el número de caracteres. 


IX apunta a un bloque de memoria que contiene 
los códigos. El código del carácter que se encuen- 
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tre en la dirección a la que apunta IX será el 
primero en ser enviado. 


Condiciones de salida: AF, BC e IX son alterados. 


Longitud: 14 bytes. 
10 5; ** ECONTR e 
23B1  CD54BB 20 CALL *BBS4 ; Activa la VDU de texto 
23B4 DD7E00 30 BUCLE LD A, (IX+0) 
23B7 CDSABB 40 CALL *BBSA ; Envia el codigo de control 
23BA DD23 50 INC — IX 
23BC  10F6 60 DJNZ BUCLE 3 Todo realizado ? 
23BE C9 70 RET 3 Si. 


A modo de demostración en cuanto a su uso, el siguiente ejemplo 
muestra cómo usar ECONTR para definir un carácter —, equivalente en 
código máquina a la orden SYMBOL. En la memoria se ha dispuesto un 
bloque de bytes que contiene los datos para el carácter. Así, para 
SYMBOL 240, 1, 3, 7, 15, 31, 63, 127, 255, tendríamos que colocar el si- 
guiente bloque: 


n+9 2559 ultimo byte de la definicion 
127 
63 
31 
15 
7 
3 
1 
n+1 240 caracter a definir 
n+0 25 codigo de control de SYMBOL 


ECONTR 


I 

10 MEMORY 39999 | 

20 PRINT CHR$ (240) 

30 GOSUB 90 

40 RESTORE 150 
50 FOR 1I=0 TO 9: READ A:POKE (40000+1),A 

z NEXT 

50 CALL 40200 

70 PRINT CHR$ (240) 

80 END 

90 FOR 1=0 TO 19 

100 READ A$: POKE (40200+1),VAL("2"+A$) 

1] 

| 

t 

' 

| 


110 NEXT 
120 DATA 06,0A,DD,21,40,90 
130 DATA CD,54,BB,DD,7E,00,CD,SA,BB,DD, 


O 
O 
O 
O 
O 
O 
O 


OO OOO omo 


O! 23,10,F5,C9 ¡O 
> 140 RETURN ! 

O | 150 DATA 25,240,1,3,7,15,31,63,127,255 O 
' 


Supongamos que n=41000. 
El código de máquina para llamar a ECONTR será simplemente 


LD 1X,41000 
LD B,10 
CALL ECONTR 
RET 


Si examinas la lista de los códigos de control aprenderás a usar 
ECONTR para cambiar el color de la pluma y del papel del texto, y 
tendrás la oportunidad de cambiar el color usando ECONTR en combina- 
ción con ECADEN. 

Hasta aquí sólo hemos visto cómo situar una cadena de textos en la 
posición del cursor de texto. Pero, ¿qué ocurre con el código máquina 
equivalente a la orden TAG del BASIC? GCADEN te permite situar el 
texto en el cursor de gráficos, y también especificar los puntos de pantalla 
que median entre los caracteres que constituyen la cadena. 

GCAD2 es una versión ampliada de GCADEN que te permite usar 
una orden CALL ampliada para poder utilizar esta rutina desde el BASIC 
con mayor facilidad. 


GCADEN (CADENa en Gráficos) 


Imprime una cadena en el color asignado a gráficos y en las coordena- 
das X e Y especificadas. El espacio entre caracteres escritos también puede 
predeterminarse. Esta rutina es relocalizable. 


Requisitos de entrada: BC contiene el número de puntos de pantalla 
entre caracteres. 
HL coordenada Y. 
DE coordenada X. 
IX apunta a la cadena en memoria. 


La cadena debe finalizar con CHRS(0). 


Condiciones de salida: Todos los registros alterados. 


Longitud: 37 bytes. 
10 5 ** GCADEN sx 
2702 C5 20 GCADEN PUSH BC; Guarda el valor de los 


30 ; registros en la pila 


31 


2703 D5 40 PUSH DE 


2704 ES 50 PUSH HL 
2705 CDCOBB 60 CALL *BBCO; Posiciona el cursor de texto 
70 5 en las coordenadas X,Y 
2708 El 80 POP HL; Vuelve a cargar los registros 
2709 Di 90 POP DE 
2704 Ci 100 POP BC 
270B DD7E0O 110 LD A, (IX+0)5 Examina el caracter 
270E FEOO 120 cP 00; Si es cero, termina 
2710 C8 130 RET 2 
2711 C5 140 PUSH BC 
2712 DS 150 PUSH DE 
2713 ES 1650 PUSH HL 
2714 CDFCBB 170 CALL RBBFC5 Imprime el caracter en donde se 
180 5 encuentre el cursor de graficos 
2717 El 190 POP HL 
2718 Di 200 POP DE 
2719 Ci 210 POP BC 
2714 ES 220 PUSH HL5 Guarda en la pila la coordenada Y 
271B DS 230 PUSH DE; «Almacena la coordenada X 
240 5 en el registro HL 
271C El 250 POP HL 
271D AF 260 XOR A; Pone a cero el acarreo 
271E ED4A 270 ADC HL,BC3 Actualiza la coordenada X 
2720 ES 280 PUSH HL5 Retorno de X 
2721 Di 290 POP DE; al registro DE 
2722 El 300 POP HL; Rescata de la pila el valor de Y 
2723 DD23 310 INC — 1%; Apunta a la direccion 
320 5; del siguiente caracter 
2725 18DB 330 JR GCADEN; Vuelve a comenzar 


GCADEN 


10 MODE 1 

20 MEMORY 39999 

30 CLS 

40 GOSUB 1000 

50 LOCATE 1,20 

60 INPUT "CADENA :",A$ 

70 FOR I=1 TO LEN(AS) 

80 POKE (39999+1),ASC(MIDS(A$,1)) 

90 NEXT 

100 FOKE (39999+1),0 

110 CALL 40200, 

120 GOTO 50 

1000 FOR I=0 TO 49 

1010 READ A$ 

1020 POKE (40200+1),VAL("2"+A4) 

1030 NEXT 

1040 RETURN 

1050 DATA DD,21,40,90,11,08,0,21,C8,0,1, 
10,00 

1060 DATA CS,DS,ES,CD,CO,BB,E1,D1,C1,DD, 
7E,00,FE,00,C8,C5,D5,ES,CD,FC,BB,E1 

1070 DATA D1,C1,ES5,DS,E1,AF,ED,4A,ES5,D1, 
E1,DD,23,18 

1080 DATA DR 


OoOOoOoOo ow0os.o.omso0 


Comentarios 


En esta rutina, todo texto que exceda del borde derecho de la pantalla 
se perderá. El valor de BC puede variarse según tus necesidades, pero los 
valores siguientes te ofrecerán un buen punto de partida: 


Modo O BC=32 
Modo 1 BC=16 
Modo 2 BC=8 


Es obvio que los valores almacenados en DE y HL como coordenadas 
X e Y también dependen del modo de pantalla que se esté utilizando. El 
programa que a continuación expongo, GCAD2, es un método que te 
permite experimentar más fácilmente con esta rutina, pues contiene las 
instrucciones precisas para obtener los parámetros desde una sentencia 
CALL, en BASIC. 


GCAD2 (CADena en Gráficos 2) 
A esta rutina se accede mediante 
CALL direccion,x%,y%,b%,Ba$ 


donde x%, es la coordenada X, y%, es la coordenada Y, b%, es el espacio 
entre caracteres, y a$ representa la cadena que se va a imprimir. Por 
supuesto, los tres caracteres numéricos también pueden ser constantes; 
“dirección” es la dirección donde está almacenada la rutina. 

En vez de repetir el listado de GCADEN, listaré las instrucciones extra 
que se precisan para aislar los parámetros, y luego proporcionaré un 
programa en BASIC para probar la rutina. GCAD2 tiene 71 bytes de 
longitud, incluyendo GCADEN. 


10 5; ** GCADZ e. 
259D FEO4 20 cP 4; Comprueba que hay 4 parametros 
239F Co 30 RET  NZ; Si no los hay, regresa al 

40 5 programa principal 
2540 DD45E00 50 LD L, (IX+9)3 Toma la direccion de 
25A3 DD6601 60 LD H, (1X+1)3 la cadena del descriptor 
2546 23 70 INC — HL; 
2597 4E go LD C, (HL) 
2348 23 90 INC — HL 
2549 46 100 LD B, (HL)5 Almacena esa direccion en BC 
2544 C5 110 PUSH BC 
25AB DD4E02 120 LD C, (1X+2) 
254E DD4603 130 LD B, (1X+3)3 Ahora el par BC guarda 

140 5 el espaciamiento de caracteres 
25B1  DD6E04 150 LD L, (1IX+4) 
23B4 DD6605 1650 LD H, (IX+5)53 Coordenada Y en el par 

170 ; de registros HL 
25B7 DDS5SE06 1809 LD E, (1X+6) 
235BA DDS5S607 190 LD D, (I1X+7)5 Coordenada X en el par DE 
25BD DDE1 200 POP. IX; Direccion de la cadena en IX 


El resto del programa es igual que GCADEN. Observa que, al igual 
que en GCADEN, la cadena de caracteres que se va a escribir debe 
terminar con CHR$(0). El programa en BASIC expuesto a continuación 
demuestra el funcionamiento de GCAD2. 


10 MODE 2 

20 MEMORY 39999 

30 GOSUB 1000: REM Inserta en memoria el 
codigo maquina 

40 LOCATE 1,22 

50 INPUT "Cadena "5A% 

60 A$=A$+CHR$ (0) : REM Incluye el caracter 
final 

70 INPUT "Coordenada X :",XZ 

80 INPUT "Coordenada Y :",YZ 

90 INPUT "Espacio entre caracteres 

100 CALL 40200,X%,Y%, BZ, LA$: REM 

Llama a la rutina 
110 GOTO 40 
1000 REM Introduccion de los bytes 


mediante POKE . (Mbserva que 
cambias la direccion, tambien 

de cambiarla en la linea 100 

FOR I=0 TO 70 

READ A$: POKE (40200+1),VAL ("2 "+A4%) 
NEXT 


DATA FE,04,C0,DD,6E,00,DD,66,01,23, 
4E,23,46,C5,DD,4E,02,DD,46,03,DD, 6É 
,04,DD,66,05,DD,5E,06,DD,56,07,DD, 
El 

DATA C5,D5,ES5,CD,CO0,BB,E1,D1,C1,DD, 
7E,00,FE,00,C8,C5,D5,ES,CD,FC,BB,El 
,D1,C1,ES,D5,E1,AF,ED,4A,ES5,D1,E1, 
DD, 23,18,DB 

RETURN 


Aunque veremos con más detalle las operaciones con gráficos en el 
capítulo siguiente, no estará de más aquí un pequeño receso para explicar 
cómo puede cambiarse el color de la pluma de gráficos. Lo menciono aquí 
porque el texto escrito a través de GCADEN o GCAD2 se imprimirá en 
el color actual de los gráficos. Una rutina de ROM llamada GRAPLUMA 
te permitirá fijar el color de la pluma de gráficos. 


GRAPLUMA (PLUMA de GRAficos) 
Cambia el color de la pluma de gráficos. 


Requisitos de entrada: A es el color de pluma elegido. 


Condiciones de salida: AF alterado. 


No tienes más que acceder a la dirección £«BBDE mediante CALL. 
Así, 


LD At 
CALL — *$BBDE 
RET 


fijará el color de gráficos con la PLUMA 1. 


Impresión de números 


Es muy fácil imprimir números en BASIC; no hay más que usar 
PRINT. Sin embargo, no existe una orden similar en código máquina, por 
lo que tienes que escribir tu propia rutina para resolver el problema. Las 
rutinas que escriben el contenido de los registros de la CPU bajo forma 
numérica pueden resultar muy útiles, tanto para un programa de utilidad 
como para exponer un simple marcador en un programa de juegos. 
Concluiremos este capítulo sobre salida de textos examinando una varie- 
dad de rutinas que realizan las siguientes funciones: 


1. Escribir el contenido del registro A como número binario, hexade- 
cimal o decimal. 


2. Escribir el contenido del par de registros HL como número bina- 
rio, hexadecimal o decimal. 


Vamos a comenzar con la impresión de números en binario. 
EBINA (Escribe el registro A en BlNario) 

Escribe el contenido del registro A como un número binario de ocho 
dígitos en la pantalla, en la posición y el color actual del texto. La rutina 


es relocalizable. 


Requisitos de entrada: A contiene el número que se va a escribir. 
Condiciones de salida: AF, BC alterados. 
Longitud: 26 bytes. 


10 3 ** EBINA ++ 


256D 4F 20 CBINA LD C,A 3 Guarda una copia de A 

256E 0608 30 LD B,8 3 Ocho bits en el registro A 

2570 CB21 40 BUCLE SLA C 3 Desplaza un bit a la izquierda 
50 5; quedando en el acarreo el bit 
60 5; de mayor peso 

2572 3809 70 JR C, CERO 

2574 3E30 go LD A,%3O 5; Es el codigo ASCII para ”0” 

2576 C5 90 PUSH BC 

2577 CDSABB 100 CALL *BBSA 3 Imprime un *0” 

2574 Ci 110 POP BC 

257B 1807 120 JR ouT 

257D 3E31 130 CERO LD A,*31 5 Codigo ASCII para *1” 

257F C5 140 PUSH BC 

2580 CDS5ABB 150 CALL *BBSA 3 Lo imprime 

2383 C1 160 POP BC 

2584 10EA 170 OUT DJNZ BUCLE 3 Se han desplazado todos los bits ? 

2586 C9 180 RET 5 Al terminar, regresa al programa 
190 ; principal 


Puedes probar esta rutina con el siguiente programa en BASIC: 


10 MEMORY 39999 

20 FOR I=0 TO 27 

30 READ A$ 

40 POKE (4020041) ,VAL("2R"+A$) 
SO NEXT: CLS 

60 INPUT "Valor";¿A 

70 POKE 40201,A 

80 CALL 40200 


90 PRINT:GOTO 60 

100 DATA 3E,FF,4F,06,08,CB,21,38,09,3E, 
30,C5,CD,5M,BB,C1,18,07,3E,31,C5,CD, 
5A,BB,C1,10,EA,C9 

110 DATA 06,10,CB,25,CB,15,38,0B,3E,30, 
C5,E5,CD,5A,BB,E1,C1,18,09,3E,31,05, 
ES,CD,5A,BB,E1,C1,10,EA,C9 


Una aplicación muy útil de esta rutina es la visión que te da del estado 
de los distintos indicadores o flags en el registro de flags. Es obvio que el 
registro F debe ser copiado en el registro A antes de poder hacer esto, 
pero ello no conlleva excesiva complicación. 

La siguiente rutina escribe el contenido de HL de modo similar. 


EBINHL (Escribe HL en BilNario) 


Esta rutina escribe el contenido del par HL como un número binario 
de dieciséis dígitos. El número se imprime en el color y en la posición 
actual del cursor de textos. Esta rutina es relocalizable. 


Requisitos de entrada: HL contiene el número. 
Condiciones de salida: AF, BC y HL alterados. 


Longitud: 31 bytes. 

250E 0610 10 EBINHL LD B,16 3 Es un numero de 16 digitos 

2510 CB25 20 BUCLE SLA L 5 Desplaza los 16 bits un bit 
30 ; a la izquierda 

2512 CB14 40 RL H 35 Bit de mayor peso en C 

2514 380B 50 JR C, CERO 

2516 3E30 60 LD A,*30 35 Codigo ASCII para O 

2518 C5 70 PUSH BC 

2519 ES go PUSH HL 

2514 CDSABB 90 CALL *BBSA 5 Lo escribe en pantalla 

251D El 100 POP HL 

251€ C1 110 POP BC 

251F 1809 120 JR SALIDA 

2521 3E31 130 CERO LD A,*31 35 ASCII de 1 

2523 C5 140 PUSH BC 

2524 ES 150 PUSH HL 

2525 CDS5SABB 160 CALL WBBSA ; Escribe el 1 

2528 El 170 POP HL 

2529 Ci 180 POP BC 

252A 10E4 190 SALIDA DJNZ BUCLE 3; Si aun quedan digitos, 
200 3 volver otra vez 

252C C9 210 RET 


El programa en BASIC equivalente a esta rutina sería: 


MEMORY 39999 

FOR I=0 TO 33 

READ A$ 

POKE (40200+1),VAL("2%"+A%4) 

NEXT: CLS 

INPUT "Valor"; 

alto=INT (A/256) 

bajo=A- (alto*256) 

POKE 40201,bajo 

POKE 40202,alto 

CALL 40200 

PRINT:GOTO 50 

DATA 21,00,00 

DATA 06,10,CB,25,CB, 14,38,0B,3E,30, 
C5, ES, CD, 5A, BE,E1,C1,18,09,3E,31,C5, 
ES5,CD,5A, B2B,E1,C01,10,E4,C9 


De todos modos se suele optar por la impresión del contenido del 
registro en modo decimal o hexadecimal. Las dos rutinas que a continua- 
ción expongo tratan de la escritura de números en representación hexade- 
cimal. 
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EHEXA (Escribe A en HEXadecimal) 


Escribe el contenido del registro A como un número hexadecimal de 
dos dígitos, en la posición y color actuales del cursor de texto. La rutina 
es relocalizable. 


Requisitos de entrada: A contiene el número. 
Condiciones de salida: AF, BC alterados. 


Longitud: 41 bytes. 
10 5; **. EHEXA +. 

269C 0600 20 EHEXA LD B,0 5B es usado como flag 
269E  —4F 30 LD C,A 
259F CB1F 40 RR A 53 Las siguientes instrucciones trasladan 
2641 CB1F 50 RR A 31los 4 bits de mayor peso 
2643 CB1F 60 RR A ja la zona de menor peso 
2645 CB1F 70 RR A 3del registro A 
2647 E650F 80 ESCBAJ AND *HOF j Hace una mascara de esta zona 
2649 FEOA 90 cr $OA 3 Si es mayor o igual que 10 
26AB 2008 100 JR NZ,AaF5 salta. 
26AD C630 110 ADD A,%*30 3 Convierte el numero de A 

120 ; en un caracter entre O y 9 
264AF CS 130 PUSH BC 
26B0O  CDS5SABB 140 CALL *BBSA 3 Escribe el digito 
26B3 1806 150 JR SALIDA 
26BS C637 150 AaF ADD A,*$37 5 Convierte el contenido de A 

170 5 en un caracter entre A y F 
26B7 C5 180 PUSH BC 
26B8 CDSABB 190 CALL *BBSA 5 Lo escribe 
26BB C1 200 SALIDA POP BC 
26BC 78 210 LD A,B 3 Examina el flag, si es 1 
26BD FEO1 220 cP 1 3 todos los digitos han sido escritos 
26BF C8 230 RET Z 3 Vuelve al comienzo 
26C0 79 240 LD A,C jcon el segundo digito preparado 
26C1 0601 250 LD B,1 3 Activa el flag B con 1 
2603 18E2 260 JR ESCBAJ 


Puedes introducirlo en la memoria mediante la orden POKE de la 
siguiente forma: 


10 REM *e EHEXA *x 


| 
! ! 

O 1 20 MEMORY 39999 ¡0 
30 FOR 1=0 TO 42 ; 
O! 40 READ AS ¡O 
50 POKE (40200+1),VAL("2"+A%) 
O! 60 NEXT: CLS O 
; 70 INPUT "Valor para el registro A "A ! 
o! 80 POKE 40201,A Lo 
¡ 90 CALL 40200 
100 PRINT 
SR: 110 GOTO 70 ¡O 
: 120 DATA 3E,00 
e. 130 DATA 06,00,4F,CB, 1F,CB,1F,UE,1F,CB, O 
1 1 


1F,E6,0F,FE,0A,30,08,06,30,05,CD,54, 


i EE, 18,06,06,37,U5,0D,5M,BEB,C1,78,FE, ) 
O 01,08,79,06,01,18,E2 o) 
l I 


En el cuerpo de esta rutina se hallan las dos instrucciones de adición 
que transforman los valores de O a 9 en sus correspondientes códigos, y 
los dígitos de A a F en sus correspondientes códigos ASCII. 


EHEXHL (Escribe HL en HEXadecimal) 


Escribe el contenido del par de registros HL como un número hexade- 
cimal de cuatro dígitos. El número se escribe en la posición y el color 
actual del cursor de texto. El código es no relocalizable, y los bytes que 
doy a continuación deben cargarse en la dirección 41000. Sin embargo, 
consulta los comentarios para ver cómo puedes alterar el código. 


Requisitos de entrada: HL contiene el número. 
Condiciones de salida: AF, BC alterados. 


Longitud: 51 bytes. 
243F 7C 10 EHEXHL LD A,H 
2440 CD4824 20 CALL EHEXA 
2443 7D 30 LD A,L 
2444 —CD4824 40 CALL EHEXA 
2447 C9 50 RET 

2448 0600 60 EHEXA LD B,0 
244A 4F 70 LD C,A 
244B  CB1F 80 RR A 

244D CBiF 90 RR A 

244F  CB1F 100 RR A 

2451 CB1F 110 RR A 

2453 E60F 120 ESCBAJ AND  4HOF 
2435 FEOA 130 cr H$0A 
2457 3008 140 JR NC, AaF 
24539 C630 150 ADD A,$30 
245B C5 160 PUSH BC 
245C  CD5ABB 170 CALL HBBSA 
245F 1806 180 JR SALIDA 
2461 'C637 190 AaF ADD A,*37 
2463 C5 200 FUSH BC 
2464 CDSABB 210 CALL *HBBSA 
2467 C1 220 SALIDA POP. BC 
2468 78 230 LD A,B 
2469 FEO1 240 cP 1 

246B C8 250 RET Z 

246€ 79 260 LD A,C 
246D 0601 270 LD B,1 
246F  '18E2 280 JR ESCBAJ 


El programa BASIC que puedes utilizar para introducir la rutina en la 
memoria del ordenador es: 
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REM ** EHEXHL *+e 
MEMORY 39999 
FOR I=0 TO 6 
READ A+ 
FOKE (4020041) ,VAL. ("2"4+A%) 
NEXT: CLS 
FOR I=0 TO 49 
READ A$ 
POKE (41000+1),VAL ("R'"--As) 
NEXT 
INFUT "Valor del registro HL "A 


O 


O 


POKE 40202, INT (44/2536) 
POKE 40201, (A4- ((1NT(A4/256)):236)) 
CALL 40200 


PRINT 

GOTO 110 

DATA 21,00,00,0D,28,A0,C9 

DATA 7C,CD,31,A0,7D,C0D,31,40,C9,06, 
00,4F,CB,1F,CB,1F,CB,1F,CB,1F,E6,0F, 
FE, 0A,30,08,06,30,C05,CD,5A, BB,18,06, 
C6,37,C5,0D,5M,BB,01,78,FE,01,08,79, 
06,01,18,E2 


O: O: O.” 00 0: O 0. :0 


Comentarios 


Si eres observador, habrás advertido que EHEXHL equivale simple- 
mente a dos llamadas a EHEXA. Aquí comienzan los problemas con la 
relocalización del código; al haber diseñado parte del programa dentro de 
una subrutina, su dirección dependerá de aquella donde el programa esté 
almacenado en memoria. Si EXEXHL se carga en la dirección N, entonces 
EHEXA se hallará en la dirección (N +09). Así, los bytes (N +2) y (N + 6) 
deberán alterarse de forma que contengan el byte bajo de esta dirección; y 
los bytes (N+3) y (N+7) deberán modificarse hasta contener el byte alto 
de la dirección de EHEXA. 

La última rutina de impresión de números que veremos escribe el 
contenido de los registros en decimal. Antes de verla, convendría que 
echaras un vistazo al algoritmo utilizado. 

Es un simple caso de sucesivas restas de las potencias de 10 del 
número a imprimirse, hasta que el resultado sea negativo. Entonces añadi- 
remos al resultado la potencia de 10, reconvirtiéndolo en un número 
positivo. El número de veces que determinada potencia de 10 haya sido 
sustraída será el dígito para esta potencia de 10 en concreto. Entonces se 
escribe el dígito. El proceso se repite con la siguiente potencia de 10 
inmediatamente inferior, y así sucesivamente, hasta que se sustraigan las 
unidades, quedando como número tratado el valor 0. Así, para un registro 
de ocho bits, tendremos que sustraer, por orden, las centenas, las decenas 


y, finalmente, las unidades. Estas rutinas son útiles para muchas aplicacio- 
nes como tablas de puntuación, e impresión de números de línea para 
juegos en código máquina, impresión de números de línea para rutinas de 
utilidad en código máquina, etc. 


EDECA 


(Escribe A en DECimal) 


Escribe el contenido del registro A en la posición y color actuales del 
cursor de texto, como un número decimal de tres dígitos. La rutina es no 
relocalizable, pero aun así consulta los Comentarios. Los siguientes bytes 
funcionan correctamente en la dirección 41060. 


Requisitos de entrada: 


Condiciones de salida: 


Longitud: 


2512 
2514 

2517 
2519 
251C 
251E 

2520 
2521 

2523 
2324 
2526 
2527 
2528 
2529 
252B 
252E 
252F 


1664 
CD1E25 
160A 


10 
20 
30 
40 
50 
60 
70 
go 
90 
100 
110 
120 
130 
140 
150 
150 
170 


30 bytes. 


EDECA 


EDEC 
BUCLE 


SALIDA 


LD 


D, 100 
EDEC 
D, 10 
EDEC 
D,1 
C,0 

D 


C,SALIDA 5 


c 
BUCLE 
A,D 
AF 
A,C 
A, $30 
WBBSA 
AF 

5 


Y su equivalente en BASIC: 


A contiene el número. 
AF, BC, DE resultan alterados. 


Escribe las centenas 
Escribe las decenas 
C actua como contador 


Resta la potencia de diez; 
si el resultado es negativo, salta 


Restaura a Á como positivo 


3 Convierte al contador en un digito 


y lo escribe por pantalla 


Terminado el ciclo 


Oo QooOo Oo Oo O 


10 
20 
30 
40 
530 
60 
70 
80 
90 


REM 


** EDECA 


MEMORY 39999 
FOR I=0 TO 5 
READ A$ 


POKE (40200+1),VAL ("2 "+AM$) 


NEXT: CLS 
FOR I=0 TO 29 
READ A$ 


POKE (41060+1),VAL ("2£"+A%) 


100 NEXT 


110 INPUT 


120 POKE 40201,A 
130 CALL 40200 


H 


"Valor del registro A "3A 


140 PRINT 


' ' 
o 150 GOTO 110 ¡O 
| 160 DATA 3E,00,CD,64,A0,C9 ' 
O 170 DATA 16,64,CD,70,A0,16,04,CD,70,A0, qe: 
14,01,0E,00,92,38,03,0C,18,FA,82,F5, 
O ¡ 79,06,30,CD,5A,BB,F1,C0? O 
1 1] 


Comentarios 


Si la rutina anterior se almacena en otra dirección que no sea 41060, 
digamos dirección N, entonces la subrutina PDEC se situará en la direc- 
ción (N+12). Las posiciones (N +3) y (N+8) deben contener el byte bajo 
de la dirección (N +12); y las posiciones (N +4) y (N +9) deben contener el 
byte alto de la dirección (N+ 12). 


EDECHL (Escribe HL en DECimal) 


Escribe el contenido del par de registros HL bajo la forma de un 
número decimal de cinco dígitos, en el color y la posición actual del cursor 
de texto. La rutina es no relocalizable. Los siguientes bytes funcionarán 
correctamente en la dirección 41200, pero me remito a los comentarios 
para mayores detalles sobre el funcionamiento de la rutina en otras 
direcciones. 


Requisitos de entrada: HL contiene el número. 
Condiciones de salida: AF, HL, DE son alterados. 


Longitud: 46 bytes. 

235B2 111027 10 EDECHL LD DE, 10000 

25B5S CDCD25 20 CALL EDECH 3 Escribe las decenas de millar 

25B8 11E803 30 LD DE, 1000 

25BB CDCD25 40 CALL EDECH 3 Escribe las unidades de millar 

25BE 116400 50 LD DE, 100 

25C1  CDCD25 60 CALL EDECH 3 Escribe las centenas 

2504 110400 70 LD DE, 10 

2507 CDCD25 go CALL EDECH 3 Escribe las decenas 

25CA 110100 90 LD DE, 1 

25CD AF 100 EDECH XOR A 3 Iniícializa el contador 

25CE 37 110 BUCLE SCF 

25CF 3F 120 ccF. 5 Pone a O el flag de acarreo 

25DO EDS52 130 SBC HL,DE 5 Realiza la sustraccion 

25D2 3803 140 JR C,SALIDA; hasta que sea negativa 

25D4 3C 150 INC A 

25D5 18F7 150 JR BUCLE 

25D7 19 170 SALIDA ADD HL,DE 3 Lo restaura haciendolo positivo 

25D8 Cá630 180 ADD A,%*30 3 Convierte el contador en un 
190 ; digito ASCII y. . + 

25DA ES 200 PUSH HL 

25DB CDSABB 210 CALL BBSA 53 lo escribe 

25DE El 220 POP HL 


25DF C9 230 RET 


REM *x* EDECHL xx 
MEMORY 39999 
FOR I=0 TO 6 
READ A$ 
POKE (40200+1),VAL ("2 "+A9) 
NEXT: CLS 
FOR I=0 TO 45 
READ A$ 
POKE (41200+1),VAL("2"+A4) 

NEXT 

INPUT "Valor para el registro HL ";A 
POKE 40201, (A- (INT (A/256) 256) ) 

POKE 40202, INT (A4/256) 

CALL 40200 

PRINT 

GOTO 110 

DATA 21,00,00,CD,FO,A0,C9 

DATA 11,10,27,CD,0B,A1,11,E8,03,CD, 
0B,A1,11,64,00,CD,0B,A1,11,0A,00,CD, 
0B,A1,11,01,00,AF,37,3F,ED,52,38,03, 
30C,18,F7,19,C6,30,ES5,CD,54,BB,E1,C9 


O 


O 


O 
O 
O 
O 
O 
O 
O 
O 
O 
O 


OOOoOuououoOo Oo 0osomOo 


Comentarios 


En este caso, la subrutina EDECH se encuentra en la dirección 
S¿A10B. Se hallará siempre en la dirección (N +27), siendo N la dirección 
donde se almacenó la totalidad del programa. Por tanto, si almacenas la 
rutina en una dirección distinta a la dada, deberás alterar las llamadas a la 
subrutina que se encuentran al comienzo de esta rutina para que apunten 
hacia la nueva dirección de EDECH. 

Esto completa el capítulo sobre salida de textos, aunque veremos en 
posteriores capítulos otras rutinas relacionadas con la manipulación de 
textos. Ahora vamos a ver algunas operaciones de gráficos, incluyendo una 
variedad de rutinas que aumentan las órdenes usuales de BASIC para 
manejo de gráficos. 


Rutinas 
de gráficos 


En este capítulo veremos varias rutinas que aprovechan las facilidades 
ofrecidas por Amstrad para la producción de gráficos. También me ocupa- 
ré de algunas rutinas de manipulación de textos, como las que escriben en 
pantalla grandes caracteres, y, dado su interesante funcionamiento, de 
aquellas que invierten y escriben los caracteres boca abajo en la pantalla. 
Además, se incluyen una rutina de propósito general para dibujar compo- 
siciones gráficas y cuadros en la pantalla a partir de una lista de datos, y 
varias rutinas más de utilidad para los gráficos. 

Comenzaremos con algunas rutinas que escriben grandes caracteres en 
pantalla, muy útiles para títulos o programas de demostración. Las dos 
primeras no utilizan ninguna rutina propia para gráficos; sin embargo, 
presentan algunas interesantes rutinas de la ROM. 


CGRAND (Carácter GRANDe) 


Esta escribe en la pantalla un carácter enormemente grande de ocho 
caracteres de ancho y de ocho de altura. La rutina trabajará en cualquier 
modo de pantalla y el carácter aumentado se escribirá en la posición 
actual del cursor de textos, y con el color de la tinta asignada a textos. 
Examina los comentarios posteriores para los detalles de la relocalización. 
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Requisitos de entrada: Trabajando desde el BASIC, llamaremos a esta 

rutina mediante CALL dirección, n; donde n es 
el código ASCH del carácter que ha de ser es- 
crito. 
Si hacemos la llamada desde otra rutina de códi- 
go máquina, entonces A contiene el valor 1 y el 
registro IX apunta al código del carácter a es- 
cribir. 


Condiciones de salida: Todos los registros son alterados. La rutina ter- 
mina cuando el carácter ha sido escrito o cuando 
detecta que se ha transferido un número erróneo 
de parámetros. 


Longitud: 80 bytes. 
10 5 ss CGRAND 1. 
9D08 20 ORG 40200 
9D08 FEO1 30 cP 1 
9DOA CO 40 RET  NZ 3 Si no hay un parametro 
50 5 regresa al programa BASIC 
9DOB CDO06B9 60 CALL $B906 3 Rutina de la ROM 
9DOE FS 70 PUSH AF 3 Salva los registros de estado 
9DOF  DD7E0O go LD A, (IX) 3 Carga el caracter a imprimir 
9D12 CDASBB 90 CALL *BBAS 3 Extrae la direccion patron; 
9D135 DD21409C 100 LD 1X,40000 j que es donde se almacena 
110 5; el modelo del caracter 
9D19 0508 120 LD B,8 3 8 bytes a desplazar 
9D1B 7E 130 BUCLE LD A, (HL) 3 HL contiene la direccion 
140 ; del modelo 
9D1C DD7700 150 LD (1X),A 
9D1F 23 160 INC HL 
9D20 DD23 170 INC IX 
9D22 10F7 180 DJNZ BUCLE 3 Transfiere los 8 bytes 
190 3 del modelo 
9D24 Fi 200 POP AF 
9D25 CDOCB9 210 CALL *B90C 3 Restaura los registros de estado 
9D28 DD21409C 220 LD IX, 40000 
9D2C 1608 230 LD D,8 3 Estos son los 8 bytes 
240 ; que definen el caracter 
9D2E DD7E0O 250 BUCLE1 LD A, (1X)> 3 Extrae el byte al que apunta IX 
9D31 4F 260 LD C,A 
9D32 0608 270 LD B,8 
9D34 CB21 280 BUCLE2 SLA C 3 Salta de bit en bit 
290 ; para cada byte 
9D36 3807 300 JR C,CERO 
9D38 3E20 310 LD A,32 3 Escribe un espacio si 
320 ; el bit es ”0” 
9D3JA CDSABB 330 CALL *BBSA 
9D3D 1805 340 JR SALIDA 
QD3F 3EFF 350 CERO LD A, 235 3 Escribe CHRS (253) 
360 3 si el bit es ”1” 
9D41 CDS5ABB 370 CALL SBBSA 
9D44 10EE 380 SALIDA DJNZ BUCLE2 
9D46 DD23 390 INC — IX 
9D48 3E0A 400 LD A, 10 3 Baja una linea 
9D4A CD5ABB 410 CALL *BBSA 
9D4D 0508 420 LD B,8 
9D4F 3E08 430 BUCLE3 LD A,8 
9D51 CDSABB 440 CALL RBBSA 
9D54 10F9 450 DJNZ BUCLE3 3 Envia 89 veces el 


460 5 caracter CHR$ (8) 


9DS6 15 470 DEC D 


9D57 20D5 480 JR NZ,BUCLE1;5 Si todos los bytes de la 
490 5; definicion han sido 
9D59 C9 500 RET 5 realizados ... Final. 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 SYMBOL 255,255,255,255,255,255, 255, 
255,255 

20 CLS 

30 LOCATE 1,1 

40 INPUT " Cadena: ",A$ 

50 LOCATE 10,10 

60 FOR I=1 TO LEN(A$) 


70 LOCATE 1x8+1,10 

80 CALL 40200,ASC(MID$(A$, 1,1)) 

90 NEXT 

100 CALL RBBO6:GOTO 20 

110 REM Cambia la linea 10 por : 
120 REM SYMBOL 255,40, 40,40,40.... 
130 REM Hay muchas combinaciones. 


Comentarios 


Normalmente, podemos llamar a esta rutina mediante una sentencia en 
BASIC como ésta: 


y=10:A$="cadena":FOR X=1 TO LEN(AS$) 
LOCATE Xx*8+1,y 

CALL 40200,ASC(MID$ (A$,X,1)) 

NEXT X 


Obviamente, he supuesto que el código máquina ha sido ensamblado a 
partir de la dirección 40200. Los bytes del programa anteriormente listado 
son correctos únicamente para esta dirección. Mira los comentarios que 
hay después de CARVAR para los detalles sobre la relocalización de estas 
rutinas. 


CDOBLE (Carácter DOBLE) 


Esta rutina presenta en la pantalla un carácter con una altura doble de 
lo normal. Al igual que la anterior, ésta funcionará en cualquier modo de 
pantalla y se escribirá con el color de la tinta de textos y en la posición 
que tenga el cursor de textos en ese momento. 
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Requisitos de entrada: Trabajando con el BASIC, podremos acceder a 
ella con la sentencia CALL dirección, n; siendo n 
el código ASCII del carácter que ha de escribirse. 
Partiendo de otra rutina en código máquina, po- 
dremos llamar a CDOBLE siempre que el regis- 
tro IX apunte al carácter que ha de ser escrito y 
que el registro A contenga el valor 1. 


Condiciones de salida: Todos los registros son alterados; la rutina de- 
volverá el control cuando el carácter haya sido 
escrito o cuando detecte que un número erróneo 
de parámetros ha sido transferido desde la senten- 


cia CALL. 

Longitud: 73 bytes. 

9D08 10 ORG 40200 

9D08 FEO1 20 cP > 

9DOA CO 30 RET NZ 3 Si no hay ningun parametro 
40 3 regresa al programa BASIC 

9DOB CDO6B9 50 CALL *B906 3 Activa la ROM 

9DOE FS 60 PUSH AF 3 Salva el registro de estado 
70 5 de la ROM 

9DOF  DD7E0O go LD A, (IX) 5 Extrae el caracter que 

. 90 3 tiene que escribir 

9D12 CDASBB 100 CALL $BBAS 3 Obtiene la direccion modelo 

9D15 DD21409C 110 LD 1X,400005 que es donde almacenaremos 
120 5; la matriz del caracter 

9D19 0608 130 LD B,8 3 8 bytes para desplazar 

9D1B 7E 140 BUCLE1 LD A, (HL) 

9D1C DD7700 150 LD (IX),A 5 Cada byte es copiado dos veces 

9D1F DD23 1650 INC IX 3 para lograr asi un 

9D21 DD7700 170 LD (IX),A 3 byte de longitud doble 

9D24 DD23 180 INC IX 3 en la definicion de la altura 

9D26 23 190 INC HL 

9D27 10F2 200 DJNZ BUCLE1 

9D29 Fi 210 POP AF 

9D2A CDOCB9 220 CALL *B90C 3 Restaura el estado de la ROM 

9D2D JEFE 230 LD A, 254 3 Define a CHR$(254) como 

9D2F 21409C 240 LD HL,400005 parte superior del caracter 

9D32 CDASBB 250 CALL *BBAS 

9D35 3EFF 260 LD A, 255 3 Define a CHR$(255) como 

9D37 21479C 270 LD HL,40007; la mitad inferior del caracter 

9D3A CDA8BB 280 CALL *BBA8S 

9D3D JEFE 290 LD A,254 3 Escribe la mitad superior 

9D3F CDSABB 300 CALL *BBSA 

9D42 3E0A 310 LD A,10 3 Baja una linea 

9D44 CD5ABB 320 CALL *BBSA 

9D47 3E08 330 LD A,8 3 Retrocede un espacio 

9D49 CD5ABB 340 CALL NBBSA 

9D4C — 3EFF 350 LD A,255 3 Escribe la mitad inferior 

9D4E CD5ABB 360 CALL SBBSA 

9D5S1 C9 370 RET 3 Regreso al BASIC 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 REM Rutina CDOBLE 
20 CLS 
30 INPUT A$:CLS 


40 Y=10 : X1=3 : FOR I=1 TO LEN(AS) 


l 
o! 50 LOCATE X1+I-1,Y O 
60 CALL 40200,ASC(MID$(A$,1,1)) | 
O! 70 NEXT Ho: 
t ' 


Comentarios 


He dicho antes que esta rutina trabaja en todos los modos de pantalla, 
pero será particularmente efectiva en el modo 0, donde la doble anchura 
del texto facilitará la lectura haciendo más legible el texto. Si deseas ver el 
programa en acción, ensambla el código máquina a partir de la dirección 
40200 y prueba también con las siguientes líneas de BASIC: 


10 Y=10 : X=1 ¿REM Posicion de pantalla 
20 MODE 2 
30 FOR I=X TO LEN(A$) 


40 LOCATE X+I-1,Y 
50 CALL 40200, ASC(MID$(A$,1,1)) 
60 NEXT 


Las notas sobre la relocalización de esta rutina se darán también 
después de la descripción de CARVAR. 

Veamos ahora esta última rutina que escribe grandes caracteres. Exa- 
minando el listado comprobarás que hace uso de operaciones con gráficos. 


CARVAR (CARácter VARiable) 


Esta rutina es muy versátil para escribir caracteres de tamaño variable a 
voluntad. El ancho del carácter se mantiene constante a seis espacios, 
permitiendo con ello mayor legibilidad en cualquier modo de pantalla. El 
carácter a escribir se localizará en la posición actual del cursor de gráficos 
y tendrá el color asignado para los gráficos. 


Requisitos de entrada: Si partimos desde BASIC, usaremos CALL direc- 
ción,n,m. En este caso, n es el código ASCII del 
carácter que ha de escribirse, y m es un número 
entero que especifica su altura relativa. 

Si accedemos a esta rutina desde un programa en 
código máquina, A contendrá el valor 2 y el 
registro IX apuntará hacia un bloque de me- 
moria. 

(IX +0) contiene la altura y (IX+2) contendrá el 
código ASCII del carácter. 
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Condiciones de salida: 


Longitud: 


9D08 
9D08 
9DOA 


9DOB 
9DOE 
9D11 
9D14 
9D15 
9D18 
9D1B 
9D1F 
9D21 


9D22 
9D25 
9D26 
9D28 
9D2A 
9D2B 
9D2E 
9D32 


9D34 


9D37 
9D38 
9DIA 


9D3C 
9D3F 
9D41 
9D44 
9D46 
9D49 
9D4B 
9D4D 
9DSO 
9D51 


9D53 
9D54 
9D55 
9D5S6 
9D57 
9DSA 
9D5D 


9D60 
9D61 
9D62 
9D63 
9D64 
9065 
9D66 
9D67 
9DEA 
9D6D 


9D70 


FEO2 
co 


DD7E0O 
32F19D 
CDO4B9 
FS 
DD7E02 
CDASBB 
DD21409C 
0608 

7E 


DD7700 


CDOcCB9 
DD21409C 
1508 


DD7E0O 


4F 
0608 
CB21 


CD8c9D 
3805 
CDDC9D 


c5 

110600 
210000 
CDF9BB 


ci 

Di 

El 

c9 

ES 

DS 

c5 
110600 
210000 
CDC3BB 


ci 


Todos los registros se devuelven alterados. La 


rutina finaliza cuando escribe el carácter o cuan- 
do detecta un número incorrecto de parámetros. 


238 bytes. 


, ++ CARVAR eu 


ORG 
cP 
RET 


LD 
LD 
CALL 
PUSH 
LD 
CALL 
LD 
LD 
BUCLE LD 


LD 
INC 


5 
BUCLE1 LD 


BUCLE2 SLA 
5 


CERO CALL 
SALIDA DJNZ 


3 
ESCRIB PUSH 


ESCRIS PUSH 


40200 
2 
NZ 


A, (IX) 


(ALTURA) , As 


*BIOS 
AF 

A, (IX+2) 
ABBAS 
IX, 40000 


*B9OC 
IX, 40000 
D,8 


A, (1) 


C,A 
B,8 
c 


CURSOR 
C,CERO 
VERTS 
SALIDA 
VERT 
BUCLE2 
IX 
SALH 
D 


NZ, BUCLE1 


3 Final 
HL 
DE 
BC 


Si no hay dos parametros 
retorna 


Recoge el valor de la altura 
Acceso a la memoria ROM 

Guarda el estado de la ROM 

Caracter para escribir 

Obtiene la direccion del 

modelo del caracter 

y almacena los 8 bytes del modelo 

en el espacio de trabajo 

mediante incrementos de HL 


Transferidos los 8 bytes 
Restaura el estado de la ROM 
8 bytes de definicion 

del caracter 


Obtiene el byte al que 
apunta IX 


Salta de bit en bit, dentro 
de cada byte 


El bit es oO” 


El bit es 1” 


Si se ha dado cuenta de 
todos los bits de la definicion... 


Dibuja una corta linea horizontal 
El trazo es relativo 


Se mueve a lo largo de la linea 
El movimiento es relativo 


9D71 
9D72 
9D73 
9D74 
9D75 
9D76 
9D77 
9D7A 


9D7D 
9D7E 
9D7F 
9D80 
9D82 
9D85 
9D88g 
9D89 
9D8A 
9D8B 
9D8c 
9D8D 
9D8E 
9D8F 
9D90 
9D93 
9D95 
9D96 
9D98 
9D9C 
9DIF 
9DAO 
9DA1 
9DA2 
DAS 
9DA4 
9DAS 
9DAS 
9DA7 


9DAA 
9DAD 
9DBO 
9DBi 
9DB2 
9DB3 
9DB4 
9DB5 
9DB6 
9DB7 
9DB8 
9DBC 
9DBF 


9DC2 
9DC3 
9DC4 
9DC5 
9DC6 
9DC7 
9DC8 
9DCB 
9DCE 
9DCF 
9DD2 
9DDS 
9DD7 
9DDA 


Di 
El 
co 
c5 
ES 
DS 
210000 
3AF19D 
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2B 

2B 
10FC 
11DOFF 
CDC3BB 
Di 

El 

cit 

c9 

cs 

ES 

DS5 

FS 
CDCé6BB 
0606 
13 
10FD 
EDS3F29D 
22F49D 
Fi 

Di 

El 

ci 

co 

cs 

D5 

ES 
11FAFF 


21FEFF 
CDC3BB 
El 

Di 

ci 

c9 

FS 

cs 

D5 

ES 
EDSBF29D 
2AF49D 
CDCOBB 


El 

D1 

ci 

F1 

c9 

c5 
CD8c9D 
3AF19D 
47 
CD549D 
CDA49D 
10F8 
CDB49D 
ci 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
elo 
820 
830 
840 
eso 
860 
870 
eso 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
11650 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


SALH 


3 
DBUCLE 


CURSOR 


CBUCLE 


RESTAU 


NEXT 


VERT 


VBUCLE 


DE 
HL 


BC 
HL 
DE 
HL,O 5 
A, (ALTURA) 3 


B,A 
HL 
HL 
DBUCLE 
DE, -48 
*BBC3 
DE 
HL 
BC 


$WBBCÓ 5 


DE 5 
CBUCLE 
(TEMPX) ,DE5 
(TEMPY) , HL5 
AF 

DE 

HL 

BC 


BC 
DE 
HL 
DE,-6 3 


HL 
DE 
BC 


AF 
BC 

DE 

HL 

DE, (TEMPX) 

HL, (TEMPY) 

*BBCO ; 


HL 
DE 
BC 
AF 


BC 3 
CURSOR 3 
A, (ALTURA) 5 
B,A 3 
ESCRIB 
RESTAU 
VBUCLE 
NEXT 

Bc 


Ahora trabaja verticalmente 
Movimiento relativo dependiente 
del parametro ALTURA 


Asi, la siguiente linea del 
caracter se dibujara con un 
movimiento relativo de 8*6 puntos 


Posiciona el cursor de graficos 
Suma 6 a la coord. X 


Lo almacena 
Almacena el bit de Y 


Movimiento relativo de 
6 puntos a la izquierda 
y de 2 hacia abajo 


Movimiento absoluto al 
siguiente (NEXT) punto, con lo 
cual la siguiente parte de la 
linea del caracter debe ser 
punteada 


Dibuja varias lineas 
horizontales, una debajo 
de la. otra y con 

altura variable 
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9DDB C9 1320 RET 


9DDC C5 1330 VERTS PUSH BC 3 Por ser el vertice, 
9DDD CD8C9D 1340 CALL CURSOR 3 no se dibujan lineas 
9DEO 3AF19D 1350 LD A, (ALTURA) 

9DE3 47 1360 LD B,A 

9DE4 CD449D 1370 VSBUC CALL ESCRIS 

9DE7 CDA49D 1380 CALL RESTAU 

GDEA 10F8 1390 DJNZ VSBUC 

9DEC  CDB49D 1400 CALL NEXT 

DEF Ci 1410 POP BC 

9DFO C9 1420 RET 

9DF1 00 1430 ALTURA DEFB O 

9DF2 0000 1440 TEMPX DEFW 00 

9DF4 0000 1450 TEMPY DEFW 00 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 CLS 

20 INPUT "Cadena: ",A%+ 
30 INPUT "Altura: ",AZ 
40 MOVE 100,100 

50 FOR I=i TO LEN(AS$) 
60 MOVE Ix*80+10, 100 


70 CALL 40200, ASC(MID$(A$, 1,1)),A7 
80 NEXT 

90 IF INKEY$="" THEN 90 

100 CLS 

110 GOTO 20 


Comentarios 


Debido a la cantidad de subrutinas que maneja, esta rutina no es 
fácilmente relocalizable. Sin embargo, si te sientes dispuesto a ello, lee las 
siguientes advertencias y tenlas muy en cuenta a la hora de cambiar la 
dirección donde se aloja el programa: 


1. La dirección donde se encuentra el espacio de trabajo, normalmente 
en la 40000, tendrá que ser cambiada si la nueva dirección del 
programa es tal que se superpone al espacio de trabajo. 

2. Obviamente tendrás que modificar, conforme a la nueva relocaliza- 
ción del programa, los bytes que forman las direcciones de las 
distintas subrutinas del programa y que pertenecen a las instrucciones 
CALL. 

3. Me remito a las notas del prólogo para comentar algunos directivos 
del ensamblador. 


Los bytes que forman el programa antes listado están preparados para 
trabajar en la dirección 40200. Tal vez quieras probar también su utilidad 


con el siguiente programa en BASIC. Se supone que el código máquina se 
encuentra ya en el ordenador y en la dirección correcta. 


10 MODE 2 

20 INPUT "Cadena: ",As 

30 INPUT "Altura: ",AzZ 

40 MOVE 100,100:REM Posicion de comienzo 

SO FOR I=1 TO LEN(A$) 

60 MOVE 1*50+10,100:REHN Se mueve a la 
posicion del siguiente caracter. 


70 CALL 40200,ASC(MID$ (4$,1,1)),AM7 

80 NEXT 

90 IF INKEY$="" THEN 90 :REM Pulsa para 
continuar. 

100 CLS 

110 GOTO 20 


La separación entre los caracteres escritos se puede ajustar variando 
las constantes de la sentencia MOVE de la línea 60. El carácter se escribe 
en pantalla con su esquina superior izquierda en la posición que ocupa el 
cursor de gráficos. 

Dedicaremos unas líneas para examinar algunas rutinas de la ROM, 
que hemos utilizado para la confección del programa CARVAR. También 
vamos a ver algunas limitaciones respecto al lugar en donde pueden ser 
relocalizadas las tres rutinas anteriores. 


Rutinas de ROM utilizadas 


«B906: Esta nos permite acceder a la ROM más baja en vez de 
disponer de la RAM que normalmente ocupa esta zona del mapa de 
memoria. La ROM baja ocupa las posiciones de memoria comprendidas 
entre £0000 y 824000; necesitamos tenerla disponible para poder copiar 
las definiciones de los caracteres que se guardan en la ROM y almacenar- 
las en el espacio de trabajo, que en estos programas empieza en la 
dirección 40000. Al volver de esta rutina, el registro A contiene lo que se 
conoce como estado de la ROM, mediante el cual podremos, al finalizar 
este tramo de la rutina, cerrar el acceso a la ROM y disponer nuevamente 
de la RAM. 


«B90C: La rutina de esta dirección precisa disponer del byte de estado 
que fue generado por el sistema operativo cuando accedimos anteriormen- 
-te a la ROM. Su función es devolver a la ROM el estado en que se 
encontraba originalmente. Cuando hayamos terminado de copiar la defini- 
ción de los caracteres desde la ROM y la almacenemos en la RAM, 
usaremos esta rutina para que las cosas vuelvan a su estado normal. 
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La utilización de estas dos rutinas para acceder a la ROM explica el 
especial cuidado que debe ponerse al relocalizar el código máquina. Piensa 
un momento en ello; si inhibimos la zona RAM donde está almacenado 
nuestro código máquina, la ejecución del programa se romperá al activar 
la ROM. Por esta razón, sólo podemos situar estos programas en una 
zona de memoria que no se vea afectada al perder acceso a las direcciones 
de RAM ocupadas en ese instante por la ROM. Ninguna dirección entre 
84000 y £«BFFF será afectada cuando accedamos a la ROM; así, puedes 
relocalizar tu programa en cualquier dirección dentro de esta área, pero 
nunca almacenar en la zona comprendida entre 80000 y 8:3FFF ni el 
programa ni la zona de trabajo. 

Las otras direcciones de ROM usadas por estas rutinas son: 


€BBAS: Esta rutina, llamada TXT GET MATRIX por Amsoft, nos 
permite conocer la dirección del primero de los ocho bytes que definen el 
modelo del carácter que se escribe en pantalla. Para llamar a esta rutina, 
el registro A debe contener el código ASCII del carácter. Al regresar de la 
rutina, el par de registros HL contiene la dirección. 


S£BBAS8: CDOBLE la utiliza para definir la mitad superior e inferior 
del carácter. En este caso, al llamar a esta rutina, HL contiene la dirección 
del primero de los ocho bytes consecutivos que conforman la definición, y 
el registro Á contiene el código ASCII del carácter que tenemos que 
definir. 


Un estudio más detallado de las rutinas de.la ROM puede encontrarse 
en el manual de firmware del Amstrad y en la obra Programación avanzada del 
Amstrad. 

Las dos siguientes rutinas que vamos a ver carecen de utilidad inme- 
diata, siendo, sin embargo, bastante interesantes. Tanto ESPEJOV como 
ESPEJOH pueden ser relocalizadas en cualquier región de la memoria 
entre 84000 y £¿BFFF. De ahora en adelante, esta área útil de la memoria 
será denominada “depósito de memoria” (memory pool). 


ESPEJOV (ESPEJO Vertical) 


Esta rutina escribe un carácter boca abajo. El carácter corresponde al 
código ASCII que se transfiere al llamar a la rutina. Actúa como si un 
espejo hubiera sido situado al pie del carácter. La rutina es relocalizable 
en cualquier dirección del depósito de memoria. El carácter se escribirá en 
la posición y color actuales del cursor de textos. 


Requisitos de entrada: Al igual que en rutinas precedentes, ésta puede 
estar disponible mediante la sentencia CALL di- 
rección, n, siendo n el código ASCII del carácter 


que nos interesa. Si partimos de otro programa 
en código máquina, entonces IX deberá apuntar 
al código del carácter, y A=1. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 50 bytes. 

9D08 10 ORG 40200 

9D08 FEO1 20 cP 1 

9DOA CO 30 RET NZ 3 Si no hay un solo parametro, 
40 3 retorno al BASIC 

9DOB CDO6B9 50 CALL +4B906 3 Activa el acceso a la ROM 

Q9DOE FS 60 PUSH AF 3 Guarda el byte de estado de la ROM 

9DOF DD7E0O 70 LD A, (IX) 

9D12 CDAS5BB go CALL *BBAS 3 Obtiene la direccion en ROM 
90 3; donde se guarda el caracter patron 

9D15 DD21409C 100 LD 1X,40000; Direccion donde se almacena 

9D19 110700 110 LD DE, 7 3 el modelo del caracter 

9D1iC 19 120 ADD HL,DE 

9D1D 0608 130 LD B,8 

QD1IF 7E 140 BUCLE LD A, (HL) 3 HL contiene la direccion del 
150 ; ultimo byte del modelo 

9D20 DD7700 150 LD (IX),A 

9D23 2B 170 DEC HL 

9D24 DD23 180 INC — 1X 

9D264 10F7 190 DJNZ BUCLE 3 Transfiere los 8 bytes del 
200 ; caracter patron, empezando 
210 ; por el ultimo de ellos 

9D28 Fi 220 POP AF 

9D29 CDOCB9 230 CALL *B90C 3 Restaura el estado de la ROM 

9D2C  21409C 240 LD HL,400005 Redefine el caracter CHRs (255) 

9D2F JEFF 250 LD A,255 

9D31  CDABBB 260 CALL BBAS 

9D34 3EFF 270 LD A,255 3 Escribe CHRS (235) 

9D36  CDS5SABB 280 CALL WBBSA 

9D39 C9 290 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 CLS 

20 INPUT "Cadena: ",A$ 

30 LOCATE 10,10 : FRINT As$ 
40 LOCATE 10,11 

50 FOR I=1 TO LEN(A$) 


60 CALL 40200,ASC(MID$(4$,1,1)) 
70 NEXT 

80 FRINT 

90 INFUT A$ 

100 GOTO 10 


Comentarios 


La rutina puede ser relocalizada en cualquier zona del depósito de 
memoria, pero recuerda que tienes que alterar la dirección del espacio de 
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trabajo (desde 40000), cuando almacenes el programa en este espacio de la 
memoria en concreto. Para ver la acción de esta rutina, prueba también 
con el siguiente programa BASIC: 


10 MODE 1 

20 INPUT "Cadena: ",AsS 

30 LOCATE 10,10 : PRINT A$ 

40 LOCATE 10,11:REM Justo bajo la cadena 
50 FOR I=1 TO LEN(A$) 

60 CALL 40200,ASC(MID$(A$,1,1)) 


70 REM Se supone que el programa ya se 
encuentra almacenado en la direccion 
40200 de la memoria. 

80 NEXT 

90 PRINT 

100 INPUT "Pulsa para continuar”, at$ 

110 GOTO 10 


ESPEJOH (ESPEJO Horizontal) 


Esta rutina es similar a la anterior, con la diferencia de que escribe en 
pantalla un reflejo del perfil del carácter. Es decir, el carácter se reflejará en 
un espejo situado en su lado derecho. El carácter se escribirá en la 
posición y color actuales del cursor de textos. 


Requisitos de entrada: Es necesario un único parámetro que acompañe 
a la orden CALL si trabajamos con un progra- 
ma BASIC. El parámetro contiene el código del 
carácter a escribirse. 

Si partimos de código máquina, IX deberá apun- 
tar al código ASCII del carácter, y A=1. 


Condiciones de salida: Todos los registros san alterados. 


Longitud: 56 bytes. 
10 5 ++ ESPEJOH e. 

9D08 20 ORG 40200 

9D08 FEO1 30 cP 1 

9DOA CO 40 RET NZ 3 Si mo hay un solo parametro, 
s0 ; regresa al BASIC 

9DOB  CDO6B9 60 CALL 4B906 3 Activa la ROM 

9DOE FS 70 PUSH AF 3 Guarda el byte de estado de la ROM 

9DOF DD7E0O go LD A, (IX) 

9D12 CDASBB 90 CALL WBBAS 3 Obtiene la direccion de la 
100 5; matriz del caracter 

9D15S DD21409C 110 LD 1X,400003 Direccion donde se almacenara 
120 5; el modelo del caracter 


9D19 0608 130 LD B,8 


9D1B_— 7E 140 BUCLE LD A, (HL) HL contiene la direccion del 


150 5 primer byte de la matriz 

9D1C CS 150 PUSH BC 

9D1D 0608 170 LD B,8 3 8 bits por cada byte 

9D1F 4F 180 LD C,A 3 Extrae cada byte de la definicion 

9D20 CB11 190 IBUCLE RL c 3 Transfiere el bit de la 

9D22 1F 200 RRA 5 izquierda del registro C 
210 5 al registro A 

9D23 10FB 22 DJNZ ¡BUCLE 

9D235 C1 230 POP. BC 3 Recupera BC 

9D26 DD7700 240 LD (1X),A4 3 Transfiere el byte modificado 
250 5; de la definicion 

9D29 23 260 INC HL 

9D2A DD23 270 INC — IX 

9D2C  10ED 280 DJNZ BUCLE 3 Se almacenan los 8 bytes de 
290 5; la matriz modelo 

9D2E Fi 300 POP AF 

9D2F CDOCB9 310 CALL *B90C 3 Restaura la ROM en su estado normal 

9D32 21409C 320 LD HL,400003 Redefine el caracter CHR$(255) 

9D33 3EFF 330 LD A,255 

9D37  CDABBB 340 CALL *BBAS 

GD3A 3EFF 350 LD A, 255 3 Escribe CHR$ (255) 

9D3C  CD5ABB 360 CALL *BBSA 

9D3F C9 370 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 CLS 


20 LINE INPUT "Cadena : ",A* 
30 LOCATE 10,10 

40 FRINT As 

50 LOCATE 10+LEN(A$),10 


60 FOR I=LEN(A$) TO 1 STEP -1 
70 CALL 40200,ASC(MID$(A$, 1,1)) 
80 NEXT 

90 CALL KBROG 

100 GOTO 10 


Comentarios 


También esta rutina es relocalizable en el depósito de memoria, siem- 
pre que cambiemos la dirección del espacio de trabajo si fuera necesario. 

La rutina puede probarse también con el mismo programa dado para 
ESPEJOV. 

Ya hemos visto suficiente sobre caracteres. Vamos a ver ahora cómo 
realizar dibujos y gráficos reales. Con el sistema operativo del Amstrad 
resulta realmente fácil el uso de operaciones con gráficos desde rutinas de 
código máquina. Existen rutinas que dibujan puntos, trazan líneas, despla- 
zan el cursor de gráficos, etc. La primera rutina de gráficos que vamos a 
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describir es una versión gráfica de la rutina ECADEN. La rutina acepta 
una tabla de instrucciones y coordenadas de gráficos, y opera con ellas 
para dibujar una figura con la forma que la tabla especifique. Dentro de la 
rutina, esta tabla es denominada FIGURA, ya que lo que hace es definir 
una figura. Como cada uno pensaréis en una figura distinta, éste será el 
mejor método para introduciros en los gráficos en código máquina por su 
generalidad. Claro está que, si queremos trabajar con un solo tipo de 
figuras, será más rápido escribir una rutina que realice este trabajo especí- 
fico; pero con el tiempo comprobarás la gran versatilidad y expansión que 
puede alcanzar esta rutina. 


FIGRAF (Figuras GRAFicas) 


Se trata de una rutina de propósito general que dibuja en la pantalla 
gráficos de figuras en los tres modos. Los datos de las figuras a dibujar se 
encuentran en una “Tabla de Figuras” cuya estructura se describe en los 
Comentarios que hay después del programa. 


Requisitos de entrada: Ninguno. El programa inicializa los registros por 
sí solo; pero consulta los Comentarios posteriores. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 99 bytes. 
55 ** FIGRAF +. 

9D08 10 ORG 40200 

9D08 DD214B9D 20 LD IX,FIGURA 5 Direccion de los datos 

9DOC DD7EO0O 30 BUCLE LD A, (IX) 3 Primer byte de los 5 que formaran 
40 5; un codigo de operacion 

9DOF  FEOO 50 cP o 

9D11 C8 60 RET 2 

9D12 FEO1 70 cP 1 

9D14 CC3B9D 80 CALL Z,MOV 3 CALL cuando sea apropiado 

9D17 FEO2 90 cP 2 

9D19 CC449D 100 CALL Z,DIBUJA 

9D1C — FEO3 110 cp .3 

QD1IE CC2A9D 120 CALL Z,COLOR 

9D21 FEO4 130 cP 4 

9D23  CC4D9D 140 CALL Z,FUNTO 

9D26 DD23 150 INC — IX 3 Incremento de IX para que 
160 ; apunte hacia el siguiente codigo 
170 5 de operacion 

9D28  18E2 180 JR BUCLE 

9D2A FS 190 COLOR PUSH AF 3 Guarda AF hasta la salida; 
200 ; el registro A todavia conserva 
210 5 el codigo de operacion 

9D2B DD23 220 INC IX 

9D2D DD7E00 230 LD A, (IX) 3 Asigna el color 

9D30  CDDEBB 240 CALL HBBDE 53 Impone esa tinta para los graficos 

9D33 DD23 250 INC IX 

9D35 DD23 260 INC — IX 

9D37 DD23 270 INC IX 3 Actualiza el valor de IX 

9D39 Fi 280 POP AF 

9DJA C9 290 RET 

9D3B FS 300 MOV PUSH AF 


9D3C  CD569D 310 CALL COORDS 


9D3F CDCOBB 320 CALL *BBCO 3 Movimiento absoluto 

9D42 Fi 330 POP AF 

9D43 C9 340 RET 

9D44 FS 350 DIBUJA PUSH AF 

9D45 CDS569D 360 CALL COORDS 

9D48 CDFé6BB 370 CALL *BBF6 5 Traza una linea 

9D4B Fi 380 POP AF 

9D4C C9 390 RET 

9D4D FS 400 PUNTO PUSH AF 

9D4E CD569D 410 CALL COORDS 

9D51  CDEABB 420 CALL WBBEA 3 Puntea en una posicion absoluta 

9D54 Fi 430 POP AF 

9DS5 C9 440 RET 

9D36 DD23 450 COORDS INC IX 3 Rutina que carga las coordenadas 
460 3 X e Y en los registros DE y HL 
470 3 para su uso por las rutinas de ROM 

9D58  DD5E0O 480 LD E, (IX) 

9D3B DD23 490 INC IX 

9D5D DD5400 500 UD D, (1X) 3 Coordenada X en DE 

9D60 DD23 s10 INC — 1X 

9D62 DD4E00 520 LD L, (IX) 

9D65 DD23 530 INC IX 

9D67  DD6600 540 LD H, (IX) 3 Coordenada Y en HL 

9D4A C9 550 RET 

9D6EB 02 560 FIGURA DEFB 2 3 A partir de aqui son datos 

9D64C  CB800 570 DEFW 200 

9D6E 0000 580 DEFW O 

9D70 03 590 DEFB 3 

9D71 0300 $00 DEFW 3 

9D73 0000 610 DEFW O 

9D75 02 620 DEFB 2 

9D76 C8oo 630 DEFW 200 

9D78 C800o 640 DEFW 200 

9D7A 03 650 DEFB 3 

9D7B 0400 660 DEFW 4 

9D7D 0000 670 DEFW O 

9D7F 02 680 DEFB 2 

9D80 0000 690 DEFW O 

9D8g2 C800 700 DEFW 200 

9D84 03 710 DEFB 3 

9D85 0500 720 DEFW 5 

9D87 0000 730 DEFW O 

9D89 02 740 DEFB 2 

9D8BA 0000 750 DEFW O 

9D8c 0000 760 DEFW O 

9D8E 00 770 DEFB O 3 Final 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE O 
20 CALL 40200 


30 FOR T=1 TO 1000: NEXT:MODE 2 
40 CALL 40200 


Comentarios 


La dirección de la Tabla de Figuras se carga al comienzo del programa 
en el régistro IX. Esto se puede alterar, de forma que cuando llames al 
programa puedas suministrar la dirección de tu Tabla de Figuras al 
mismo. La rutina es relocalizable en el depósito de memoria teniendo en 
cuenta, por supuesto, que hay que cambiar las direcciones que contienen 


las instrucciones CALL de la rutina, refiriéndome con ésta a las llamadas 
a subrutinas del programa y no a las que se hacen al sistema operativo del 
ordenador. 

La rutina comenzará consultando las instrucciones almacenadas en la 
Tabla de Figuras. Las operaciones se realizarán con el color y posición del 
cursor de gráficos en el estado en que se encontraba antes de entrar en la 
rutina. Por eso, si al llamar a la rutina tienes alguna duda sobre ese 
estado, tendrás que asegurarte de que el primer par de instrucciones de la 
Tabla de Figuras inicializan apropiadamente el color y la posición del 
cursor de gráficos. 


La Tabla de Figuras 


Consiste en unas series de cinco bytes con el formato de la siguiente 
figura. 


ENTRADA código de operación|——=> operación a realizar 
a —= coordenada X o color 
alto 
slo denada Y o 0 
— 
ENTRADA +4 A 


v 


La introducción de cinco bytes se repite en cada operación realizada 
por FIGRAF. Los códigos de operación que entiende esta rutina son los 
que se muestran en la siguiente tabla: 


Tabla de códigos de operación de FIGRAF 


de operación 


final 


movimiento absoluto 
trazo absoluto 

color 

punteo absoluto 


Cualquier secuencia de operaciones terminará con una entrada de 
cinco bytes puestos a 0, indicando con ello el final del grupo de instruccio- 
nes. Para las operaciones de mover el cursor, dibujar o puntear, las 
coordenadas X e Y estarán almacenadas en dos pares de bytes con el byte 
bajo en primer lugar. Para color —que especificará cuál de los colores 


disponibles se debe usar a continuación— el byte bajo de la coordenada X 
se usa para guardar el código del color. Este código coincide con la pluma 
de gráficos que quieras utilizar, y no con el número asignado a cada color. 
En el caso de color, todas las demás entradas estarán a cero. 

Es fácil añadir más códigos de operación a la rutina; y si, por ejemplo, 
quisieras incluir instrucciones de movimientos o trazos de líneas relativos, 
te serán de ayuda las siguientes recomendaciones. 


1. El registro AF siempre tiene que preservarse al entrar en la rutina del 
nuevo código de operación. Esto nos garantiza que el registro A 
pueda ser devuelto a su estado original al finalizar la rutina. Esto es 
importante, sobre todo si el programa puede llamar a una segunda 
subrutina antes de actualizar el registro IX y antes de buscar un 
nuevo código de operación. 

2. Probablemente sea una buena idea dejar el 0 como último código de 
operación, a menos que quieras alterar el programa. 


Voy a mostrarte ahora algunas rutinas dedicadas a la construcción de 
figuras, tales como triángulos y rectángulos. 


TRIANG  (TRIANGulo) 


Esta rutina dibuja un triángulo, cuyos vértices son la última posición 
que ocupó el cursor de gráficos antes de llamar a la rutina, y los dos 
puntos transferidos como parámetros a la rutina en código máquina. El 
color del triángulo es el definido para los gráficos. 


Requisitos de entrada: Si utilizamos una sentencia CALL, la forma co- 
rrecta será CALL dirección,x,y,x1,y1, siendo los 
puntos x,y y xl,y1 los vértices del triángulo. 
Si partimos de otra rutina en código máquina, 
entonces el registro IX apunta hacia un bloque 
de parámetros como el de la figura. Además 


A=4. 
x 
y 
x1 
1 
(IX) —>- d 


61 


62 


Condiciones 


Longitud: 


9D08 

9DO8 FEO4 
9DOA CO 
9DOB CDC6BB 
9DOE DS 
9DOF. ES 
GD10 CD249D 
9D13 DD23 


9D135 DD23 
9D17 DD23 
9D19 DD23 
9D1IB_ CD249D 
QD1E El 
QD1F Di 
9D20 CDF4BB 
9D23 C9 
9D24 DD6E00 
9D27 DDé601 
9D2A DD53E02 
9D2D DD5403 
9D30 CDFé6BB 
9D33 C9 


de salida: Todos los registros son alterados. 


44 bytes. 

10 5 *e TRIANG +. 

20 ORG 40200 

30 cP 4 3 Tiene que haber 4 parametros 
40 RET  NZ 

so CALL *BBC6 3 Obtiene la posicion actual del cursor 
60 PUSH DE 3 Guarda el valor de X 

70 PUSH HL 3 Guarda el valor de Y 

80 CALL TRAZA 3 Linea hasta el punto X1,Y1 
90 INC — IX 5 Actualiza IX para que apunte 
100 5 hacia los parametros X e Y 
110 INC — IX 

120 INC — IX 

130 INC — IX 

140 CALL TRAZA 3 Linea hasta el punto X,Y 

150 POP HL 3 Rescata los valores originales de X e Y 
160 POP DE 

170 CALL *BBF6 3 Ultimo trazo hasta ese punto 
180 RET 

190 TRAZA LD L, (1X)> 

200 LD H, (1X+1) 
210 LD E, (1X+2) 

220 LD D, (IX+3) 
230 CALL *BBF6 

240 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


MODE 1 
REM Rutina que dibuja triangulos. 
CcLSs 


INPUT " Primer punto X.Y ",X,Y 


INPUT " Segundo punto X1,Y1 ",X1,Y1 
CALL 40200,X,Y,X1,Y1 

LOCATE 1,1 

GOTO 40 


Comentarios 


El programa es relocalizable a lo largo de todo el depósito de memo- 
ria. Cuando el triángulo se dibuje. el cursor de gráficos se encontrará en la 
posición que ocupaba antes de que la llamada a la rutina fuera realizada. 


CAJA 


Esta rutina dibuja figuras cuadradas o rectangulares en la pantalla. Las 
figuras pueden ser rellenadas o no, a voluntad. Tanto el contorno como el 
relleno tendrán el color asignado a los gráficos. La rutina es relocalizable, 
pero poniendo cuidado en las direcciones de las subrutinas usadas. 


Requisitos de entrada: Para la sentencia CALL, usaremos el modelo: 
CALL dirección,x,y, longitud, altura,(n). El pará- 
metro n es opcional, y si está presente se llenará la 
caja dibujada. Su valor carece de importancia. 
Para aclararte sobre los demás parámetros ob- 
serva la figura 1. 

Si partimos de otra rutina en código máquina, 
IX deberá apuntar hacia uno de los bloques de 
parámetros mostrados en la figura 2. 


altura 


X.Y 


«longitud ——————= 


Figura 1 
Xx *x 
y y 
longitud longitud 
altura altura 
j O 
XI 
(IX) —=- 
A=5 
caja rellenada 
Figura 2 


Condiciones de salida: 


Longitud: 


9D08 
9D08 
9DOA 
9Dec 


9DOE 
9D10 
9D11 
9D14 
9D17 
9DI1A 
9D1D 
9D20 
9D23 
9D26 
9D29 
9D2C 
9D2F 
9D32 
9D35 
9D38 
9D3B 
9D3E 
9D41 
9D44 
9D47 
9D48 
9D4B 
9D4E 
9D51 
9D54 
9D57 
9D58 
9D5B 
9D5c 


9D5D 
9DS40O 
9D63 
9D66 
9D69 


9D6C 
DEF 
9D72 
9D73 
9D74 
9D77 
9D7A 
9D7D 
9D7E 
9D7F 
9D82 
9D85 
9D86 
9D87 
9D88 
9D8B 
9D8E 
9D8F 
9D90 
9D91 
9D92 
9D93 


2848 


CD489D 
DD5E02 
DDS5603 
210000 
CDF9BB 
110000 
DD6¿E00 
DDé£601 
CDF9BB 
CD489D 
110000 
DDé¿E00 
DD656501 
CDF9BB 
210000 
DDS5E02 
DD5503 
CDF9BB 
co 

DD5E04 
DD4605 
DD5E06 
DD5607 
CDCOBB 
co 

CDCCBB 
D5 

ES 


DD6E06 
DD65607 
DDSE08 
DD5609 
CDC9BB 


DD6E02 
DD6603 
ES 

c1 
210000 
DDSE04 
DD5605 
c5 

ES 
210000 
CDF9BB 
El 

23 

ES 
110000 
CDCOBB 
El 

ci 

OB 

79 

Bo 
FEOO 


10 

20 

30 

40 

50 

60 

70 

go 

90 
100 
110 
129 
130 
140 
150 
160 
170 
1809 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
6009 
610 
620 
630 
640 
650 


VACIA 


MOV 


LLENA 


BUCLE 


149 bytes. 
** CAJA ++ 
ORG 40200 
cP 4 
JR  Z,VACIA 
cr Ss 
JR Z,LLENA 
RET 
CALL MOV 
LD E, (1X+2) 
LD D,(IX+3) 
LD  HL,o 
CALL $BBF9 
LD  DE,0O 
LD  L,(Do 
LD  H,(IX+1) 
CALL 4BBF9 
CALL MOV 
LD  DE,O 
LD  L,(IX) 
LD  H,(1X+1> 
CALL. HBBF9 
LD  HL,o 
LD  E,(1X+2) 
LD D,(IX+3) 
CALL HBBF9 
RET 
LD  L,(IX+4) 
LD  H,(IX+5) 
LD E, (1X+6) 
LD D,(IX+7) 
CALL $BBCO 
RETO 5 
CALL *BBCC 
PUSH DE 
PUSH HL 
LD  L,(1X+6) 
LD  H,(1X+7) 
LD  E,(IX+8) 
LD  D,(IX+9) 
CALL $BBCO 
LD  L,(IX+2) 
LD  H,(1IX+3) 
PUSH HL 
POP BC 
LD  HL,O 
LD E, (1X+4) 
LD D, (1X+5) 
PUSH BC 
PUSH HL 
LD  HL,0 
CALL 4BBF9. 
POP HL 
INC HL 
PUSH HL 
LD  DE,0% 
CALL *+BBCO 
POF HL 
FOF BC 
DEC BC 
LD  A,C 
OR B 
cP (3) 


2 
5 
5 
7 


Todos los registros son alterados. 


Si hay 3 parametros, la caja sera 
rellenada 


Dibuja el borde inferior 


Dibuja el borde derecho 


Dibuja el borde izquierdo 


Dibuja el borde superior 


Se mueve a la posicion inicial 
de la caja 


Guarda las coordenadas del origen 
del cursor de graficos 


Mueve el origen de coordenadas 
hasta la posicion de la caja 


Extrae el numero 
de lineas necesarias para 
rellenar la caja y lo pone en BC 


Traza una serie de lineas 
de longitud L, que rellenaran 
la caja 


9D95 20E0 660 JR NZ,BUCLE5 Si mo estan todas, empieza 


, 
9D97 El 670 POP HL 3 otra vezj cuando termina, 
9D98 Di 689 FOP. DE 3 restaura el origen de graficos 
9D99 CDC9BB 6790 CALL RBEBCO 
9D9C C9 700 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


REM Rutina que dibuja y rellena 
cajas cuadradas o rectangulares 
CALL 40200, 100, 100,400, 200 


CALL 40200, 150, 150,300, 100 
CALL 40200,200, 170,200,60, 1 
END 


Comentarios 


Existen algunos puntos interesantes de esta rutina, que merece la pena 
comentar. El primero es el empleo del número de parámetros transferidos 
a la rutina, para especificar cuál de las dos opciones, “lleno” o “vacío”, ha 
de realizarse. Esta indicación se consigue fácilmente gracias a que el núme- 
ro de parámetros transferidos se almacena en el registro A al entrar en el 
código máquina mediante la orden CALL. De ahí que el valor del pará- 
metro “n” no tenga ninguna importancia; únicamente su presencia provo- 
ca que la rutina actúe de una u otra forma. 

Otros puntos de interés sobre esta rutina son las subrutinas de la 
ROM utilizadas, y el método empleado para rellenar las cajas cuando es 
necesario. 


SBBCC: Esta rutina nos permite conocer la posición actual del origen 
de coordenadas para las operaciones de gráficos. Esto es, el punto usado 
como 0,0 en dichas operaciones. Al regreso, HL contiene la coordenada Y, 
y el par DE contiene la coordenada X. Esta información nos es necesaria 
porque, cuando dibujamos el relleno de las cajas, alteramos la posición del 
origen, y, además, es bueno volver las cosas a su estado original antes de 
volver al BASIC. 


SíBBC9: Esta nos permite definir el origen de coordenadas de los 
gráficos en un determinado punto x,y. El registro DE contiene la coorde- 
nada X y el registro HL la coordenada Y. Después de cumplir estos 
requisitos, podemos llamar a la rutina. Este programa la utiliza para 
restaurar el origen de gráficos en su posición original, justo antes de 
terminar la rutina. 


Aunque en la memoria ROM del Amstrad hay una rutina especial 
para rellenar áreas de pantallas con un color, esta rutina requiere que las 
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coordenadas de los puntos se conviertan en direcciones de la memoria de 
pantalla. Así que decidí tomar un camino más fácil y opté por dibujar 
simplemente líneas que rellenaran el área de la caja. No es tan rápido 
como la rutina interna de llenado, pero es más sencillo de entender y de 
llevar a cabo. 

Como una posible extensión de este problema puedes intentar que el 
parámetro “n” especifique el color con el que se dibuje el relleno de una 
caja. El color se puede activar mediante la rutina GRAPLUMA que 
expuse brevemente en el capítulo 2. 


Dibujando círculos 


La rapidez al dibujar un círculo es una exigencia muy común al 
programar. Sin embargo, se presentan varios problemas al usar el código 
máquina para este fin. El trabajo con números reales para el cálculo de 
senos y cosenos en las rutinas que dibujan círculos, se complica en gran 
medida. Esto puede originar que las rutinas que escribamos para calcular 
estos valores se hagan realmente largas y resulten apenas más rápidas que 
el BASIC. Por eso, quiero presentar aquí un par de rutinas en BASIC 
para dibujar círculos, igualmente útiles y de propósito general. El tercero 
es un programa híbrido que emplea BASIC en combinación con código 
máquina, y que se puede emplear en casos especiales. 


CIRCULO 1 


Esta es una rutina directa para dibujar círculos y la mayoría de los 
polígonos, dándole esta última función especial utilidad. En el programa, 
cualquier valor de “n”, a excepción de 0, 1 y 2, dará una figura poligonal. 
Observa que hay valores como n=5, n=10 o n=15, que dan figuras con 
un tramo sin dibujar. Los valores de “n” superiores a 25 darán un círculo 
más o menos razonable. 


o! 10 REM Circula 1 
] 20 REM Dibuja poligonos ! 

O ! 30 REM Los valores de N mayores que 25 ; O 
¡ 40 REM generaran un circulo : 
50 REM Cuanto mayor sea N , mas tiempo ¡ 

O; 60 REM llevara el dibujo, pero mejor 0 
70 REM definido estara el circulo 

O 1 80 MODE 2 ! O 
90 INPUT "Numero de lados  ",N 

O! 100 XC=200  : REM Centro del circulo LO 
! 110 YC=200 

Po: 120 CSALTO=6.26/N ¿REM Incremento Mo 


130 CFIN=6. 28 


I ¡ 
2 140 CRAD=100 : REM Radia de la figura ; a 
150 MOVE XC+CRAD, YC 
O 160 FOR I=0 TO CFIN STEP USALTO o 
170 DRAW XC+CRAD*COS (1), YC+CRADXSIN(I) 
O! 180 REM Realizacion de la figura 10 
190 NEXT 
o! 200 END ¡O 
1 


CIRCULO 2 


Esta rutina es más rápida que la anterior, pero no tan versátil, ya que 
no puede dibujar otros polígonos. De hecho, el programa CIRCULO1 es 
digno de un pequeño experimento. La velocidad extra de este programa se 
debe a que el tiempo consumido en el cálculo de senos y cosenos se hace 
una sola vez. Los demás valores trigonométricos que se requieren son 
calculados a partir de los valores iniciales. 


REM Circulo 2 
MODE 2 
REM Dibuja los circulos mas rapido 
REM pero mo dibuja poligonos. 
CRAD=100 : REM Radio del circulo. 
CxX=320 : REM Centro del circulo 
cY=200 
C=COS (3.14/235) 2 S=SINC3. 14/25) 
CVIEJO=1 : SVIEJO=0 
MOVE CX+CRAD*XCVUIEJO, CYACRADASVIEJO 
FOR I=1 TO Sou 
CNUEVO=CVIEJO*XC-SVIEJOXS 
SNUEVO=SV 1EJO*C+CVWIEJORS 
DRAW CX+CRADX*CNUEVO, CYCRADXASMUEVO 
CVIEJO=CNUEVO : SVIEJO=SNUEVO 
NEXT 


CIRCULO 3 


Llegamos ahora a un método un tanto híbrido de dibujar círculos, que 
usa eficazmente una variación del programa FIGRAF que vimos al co- 
mienzo de este capítulo. Una rutina en BASIC calcula las coordenadas del 
circulo que se quiere dibujar, y almacena los valores así obtenidos en una 
tabla desde donde el código máquina accede a las coordenadas y las 
dibuja en la pantalla cuando se precisa. La desventaja de este método es 
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que sólo es útil para un radio en particular y una determinada posición en 
la pantalla. Para dibujar diferentes círculos es necesario redefinir los valo- 
res de la tabla usados por el programa, volviendo a recorrer la parte 
BASIC del programa con los nuevos parámetros. 


9D08 10 ORG 40200 
9D08 DD214£C9D 20 LD IX, 40300 
9DOC — DDS5E0O 30 LD E, (1X) 
9DOF  DDS5601 40 LD D, (IX+1> 
9D12 DD6E02 50 LD L, (1X+2) 
9D1S DD6603 60 LD H, (1X+3) 
9D18 CDCOBB 70 CALL *BBCO 
9D1B  DD23 80 INC IX 

9D1D DD23 90 INC — IX 

9D1F  DD23 100 INC IX 

9D21 DD23 110 INC IX 

9D23 0632 120 LD B,50 
9D25 DDS5SE0O 130 BUCLE LD E, (IX) 
9D28 DD23 140 INC IX 

9D2A DD5600 150 LD D, (1X) 
9D2D DD23 160 INC — IX 

9D2F  DD6E00 170 LD L, (1X) 
9D32 DD23 180 INC — IX 

9D34 DD6600 190 LD H, (1X) 
9D37 DD23 200 INC — IX 

9D39 C5 210 PUSH BC 

9D3JA CDF6BB 220 CALL *BBF6 
9D3D C1 230 POP BC 

9DJE  —10ES5 240 DJNZ BUCLE 
9D40 C9 250 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE 2 | 
o 20 REM Circulo 3 ¡ e 
o! 30 REM Dibuja circulos rapidamente. o 
| 40 REM La posicion del circulo es fija ' 
' 50 REM y el radio es fijo. 
O | 50 CRAD=100 : REM Radio del circulo. O 
! 70 CX=100 : REM Centro del circulo. l 
O | 80 CY=100 1O 
90 C=C0S(3.14/25) : S=SIN(3.14/25) ¡ 
o! 100 CVIEJO=1 : SVIEJO=0 O 
! 110 COORDS=40300 
o! 120 XCOORD=CX+CRAD*CVIEJO : GOSUB 250 o 
130 XCOORD=CY+CRAD*SVIEJO : GUSUB 250 
o! 140 FOR I=1 TO 50 
l 150 CNUEVO=CVIEJO*C-SVIEJOXS ¡0 
$ 160 SNUEVO=SVIEJO*C+CV 1EJO*S 
170 XCOORD=CX+CRADXCNUEVO : GOSUB 250 ¡ O 
! 180 XCOORD=CY+CRAD*SNUEVO : GOSUB 250 ¡ 
O; 190 CVIEJO=CNUEVO : SVIEJO=SNUEVO O 
| 200 NEXT 
O | 210 CLS O 


220 INPUT"Pulsa ENTER para dibujar.",a$ 


230 
240 
250 
260 
270 
280 
290 
300 
s10 


oo .o0o.O0 


CALL 40200 

END 

A$=HEX$ (XCOORD) 

A$=RIGHTS ("O000"+As$, 4) 

EB=VAL ("2 "+RIGHTS$ (4$,2)) 

BA=VAL ("RL “+LEFI+$(A$,2)) 

POKE COORDS,BB : COGURDS=COORDS+1 
POFÉE COORDS,BA : CODRDS=COORDS+1 
RETURN 


ooo o 


El listado del lenguaje ensamblador de este programa precisa que las 
coordenadas para el círculo se almacenen en memoria a partir de la 
dirección 40300. La rutina de dibujo del círculo calcula las primeras 
coordenadas X e Y, y las sigue utilizando para moverse a partir de ellas 
hasta un punto que diste un radio del centro del círculo. El siguiente 
programa almacenará la información de las coordenadas y llamará a la 
rutina que dibuja el círculo. El programa espera encontrar a esta rutina en 
la dirección 40200, con los datos en la dirección 40300. 


10 
20 
30 
40 
50 
60 


70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


oDODUO OOO OOOO 0ooOOoCmOoOo 


CRAD=100 : REM Radio del circulo. 
CX=100 : REM Centro del circulo. 
CY=100 
C=COS (3.14/25) : S=SIN(3. 14/25) 
CVIEJO=1 : SVIEJO=0 
COORDS=40300 : REM Direccion de 
la tabla. 
XCODRD=CX+CRAD*CVIEJO : GOSUB 250 
XCOORD=CY+CRAD*SVIEJO : GOSUB 250 
FOR I=1 TO 50 
CNUEVO=CVIEJO*C-SVIEJO*XS 
SNUEVO=SVIEJO*C+CVIEJO*S 
XCOORD=CX+CRAD*CNUEVO : GOSUB 250 


XCOORD=CY+CRAD*SMUEVO : GOSUB 250 
CVIEJO=CNUEVO : SVIEJO=SNUEVO 

NEXT 

CLS 

INPUT"Pulsa ENTER para dibujar.",a 


CALL 40200 : REM Presumiendo que la 
REM rutina esta en esta direccion. 
END 

cLSs 

INPUT"Pulsa ENTER para dibujar.",a$ 
CALL 40200 

END 

REM Subrutina que se estudia en los 
REM comentarios posteriores 

AS$=HEX$ (XCOODRD) 


00. 0OOOOOOO0OO0OosO0OmO0o.Oo 
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280 A$=RIGHTS$ ("0000"+A$, 4) 
290 BB=VAL ("2 "+RIGHIS(A$,2)) 
300 BA=VAL ("R"+LEFTS (AS, 2)) 
310 POKE COORDS, BB 

320 COORDS=COORDS+1 

330 POKE CODRDS, BA 

340 CODRDS=COORDS+1 

350 RETURN 


ooo. Oo 
ooo o 


La subrutina de la línea 200 es muy útil para almacenar en memoria 
números decimales con el formato “primero el byte bajo” que el Z80 
espera encontrar en todos sus datos. En este caso se usa para almacenar 
en memoria la información sobre las coordenadas, de forma que pueda ser 
utilizada por la rutina en código máquina para el dibujo. Probablemente 
puedas ver en el listado el funcionamiento exacto de esta rutina: convierte 
los números en una cadena de caracteres que representan al número en 
hexadecimal. Después utiliza las órdenes RIGHT$ y LEFTS para extraer 
los bytes bajo y alto de cada número. 

Con esto se completa este capítulo de rutinas de gráficos. Sin embargo, 
muchas de las rutinas mencionadas en los dos capítulos siguientes están 
orientadas gráficamente. Por eso ¡no te asustes si todavía no has encontra- 
do exactamente lo que quieres! 


Desplazamiento 
de pantalla 


Antes de nada, ¿qué es un desplazamiento? Pues es el hecho de trasla- 
dar toda una pantalla o parte de la misma, de una vez, conservando la 
imagen expuesta. Esto nos permite hacer cosas muy interesantes; la panta- 
lla puede moverse hacia arriba o hacia abajo, de un lado a otro, y también 
podemos conseguir que una simple palabra o un símbolo gráfico atravie- 
sen la pantalla. Existen rutinas en el firmware que realizan simples despla- 
zamientos verticales y horizontales, y en este capítulo veremos algunas 
rutinas que las utilizan, así como otras que para desplazar trabajarán 
accediendo directamente a la memoria de pantalla. 

Hay dos tipos principales de desplazamiento: el desplazamiento soft- 
ware, que se realiza sin ayuda del hardware encargado de generar todo lo 
relativo a la pantalla, y el desplazamiento hardware, en el que el hardware 
que genera la imagen de la pantalla se manipula de algún modo. 

Empezaremos con una rutina muy simple, que desplaza toda la panta- 
lla hacia arriba o hacia abajo. 


VDESPLZ (DESPLaZamiento Vertical) 

Es una rutina que desplaza la totalidad de la pantalla hacia arriba o 
hacia abajo un número dado de líneas de caracteres, en cualquier modo de 
pantalla. La rutina es relocalizable, y las líneas de texto que se desplazan 
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más allá del margen superior o inferior de la pantalla se pierden definitiva- 
mente. Las líneas insertadas que sustituyen a las otras ya perdidas se 
rellenan con el color asignado al papel. 


Requisitos de entrada: 


Condiciones de salida: 


Longitud: 


9D08 
9D08 
9DOB 
9DOE 
9D11 
9D12 
9D13 
9D16 
9D19 
9DÍA 
9D1B 
9D1D 


CD99BB 
CcD2cBc 
DD4602 
FS 

cs 
DD4600 
CD4DBC 
ci 

F1 
10F4 
co 


Desde el BASIC accederemos mediante CALL 


dirección, num, 


dir, donde num es el número de 


líneas que quieres desplazar, y dir puede ser 0 o 
1. Si dir=1, la pantalla se desplazará hacia arri- 
ba, y si dir=0, lo hará hacia abajo. 

Desde código máquina, A=2 y IX apunta a un 
bloque de parámetros; num deberá estar com- 
prendido en el intervalo (0 a 255), aunque los 
valores grandes simplemente limpiarán la pan- 


talla. 


Todos los registros alterados. 


22 bytes. 


Ed 
| o | 
| num | 
STO 

(0) <<] 


Bloque de parámetros 


** VDESPLZ 
ORG 40200 
CALL $4+BB99 


LD  B,(IX+2) 


60 BUCLE PUSH AF 


3 
CALL *BC2C 5 
3 
5 


PUSH BC 
LD B,(IX+0)5 
CALL *BC4D 5 
POP BC 
POP AF 
DJNZ BUCLE 5 


de VDESPLZ 


Obtiene el color del papel de textos 
Codifica el color para mas tarde 
Numero de desplazamientos 

Preserva los registros 


Hacia arriba o hacia abajo? 
Realiza el desplazamiento 


Repite hasta que se hagan todos 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 
20 
30 
40 
50 
60 


MODE 2 
LOCATE 
PRINT 
PRINT 
PRINT 
FRINT 


1,10 


Moreno coso. HOLA” 
Mocesonsona QUE TAL” 
Mosncccoso cs POR" 
Marne os AHI 2" 


O 


70 CALL 40200, 1,dir 


! t 
a 80 a$=INKEY$ : IF a$="" GOTO 80 ¡0 
! 90 a=ASC (at) 
O! 100 IF a=241 THEN dir=0 O 
110 IF a=240 THEN dir=1 
O 120 GOTO 70 O 

1 


Comentarios 


Aquí se utiliza una rutina muy útil del firmware para desplazar toda la 
pantalla, a la que se accede llamando a la dirección 8¿BC4D. Al entrar, si 
B=0, la pantalla se desplaza una línea hacia abajo, y si B=1 entonces se 
moverá una línea hacia arriba. El siguiente programa en BASIC también 
demuestra el funcionamiento del anterior código máquina. 


MODE 2 

FOR X=1 TO 80 STEP 10 
FOR Y=1 TO 25 

LOCATE X,Y 

PRINT Y 

NEXT : NEXT 

CALL 40200,1,dir 


REM Suponiendo al codigo en 40200 
a$=INKEYS$S : IF a$="" GOTO 90 
a=ASC (at) 
IF a=241 THEN dir=0 REM abajo 
IF a=240 THEN dir=1 REM arriba 
GOTO 70 


Pulsando las teclas que dirigen el cursor hacia arriba o hacia abajo 
conseguiremos mover la pantalla. El texto desplazado fuera de la pantalla 
se pierde definitivamente. 

Pero sería bastante más útil poder desplazar la pantalla hacia los 
lados. Esto conlleva algo más de trabajo, pues tenemos que producir una 
rutina ligeramente distinta para cada modo de pantalla. Antes de exami- 
nar estas rutinas con detalle, daré unas notas de carácter general. 


Desplazamiento lateral 


Todas estas rutinas desplazan la mayor parte de la pantalla, pero no 
toda. Las líneas O y 24 de la pantalla se utilizan como espacio de trabajo 
por las rutinas y, por ello, no conviene utilizarlas cuando trabajes con 
dichas rutinas. A continuación te explico la razón. 
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Estamos manejando una mezcla de desplazamientos software y hard- 
ware para conseguir los resultados deseados. Los desplazamientos laterales 
mediante hardware resultan sencillos alterando lo que se conoce como 
offset de pantalla. No dispongo de espacio en este libro para entrar en 
detalles, por lo que me remito al manual firmware o a cualquier otro 
trabajo similar. 


desplazamiento 
a la izquierda 


Puedes ver en la figura anterior de qué forma afecta a la imagen un 
desplazamiento lateral con hardware. El primer carácter de la línea se 
traslada al borde opuesto de la pantalla y el resto de los caracteres se 
mueven un determinado espacio hacia la izquierda. Tal y como está 
diseñado el hardware del Amstrad, éste valor depende del offset de pantalla 
de la siguiente manera. 

Incrementando el offset de pantalla conseguimos un desplazamiento a 
la derecha, y disminuyéndolo obtendremos un desplazamiento a la izquier- 
da. El valor actual del offset de pantalla puede obtenerse usando una 
rutina del firmware, como enseguida veremos. Una segunda rutina puede 
ser empleada para volver a escribir el offset de pantalla modificado en los 
circuitos de video. En estos tres programas, el offset en modo 1 y 2 se 
modifica en 2 unidades cada vez. En modo 1 esto provoca el desplaza- 
miento de un carácter. En modo 2 se desplazarán dos caracteres. Así, para 
desplazar un carácter de la pantalla en modo 2 hacia la izquierda sólo 
tienes que dividir por dos el offset. En modo 0 el offset de pantalla se 
modifica en cuatro unidades cada vez que se requiere un desplazamiento. 
Con ello la pantalla se traslada un carácter. La razón de que se requieran 
distintos offsets para cada modo de pantalla a la hora de desplazar la 
misma se debe a la distinta distribución de la memoria del vídeo para 
cada modo de pantalla. 

Sin embargo, si eres observador, habrás advertido que el desplazamien- 
to que os mostré más arriba no era un verdadero desplazamiento lateral; 
el carácter desplazado en la pantalla se hallaba una línea más arriba o 
más abajo, según el sentido del desplazamiento, de aquella en la que 
originalmente estaba. Por ejemplo, de un desplazamiento hacia la derecha 


con este método, resultaría que un carácter se saldría del borde derecho de 
la pantalla, reapareciendo en el borde izquierdo, pero una línea más abajo. 
Para un verdadero desplazamiento lateral se requiere que el material 
desbordado por un lado de la pantalla reaparezca por el otro lado, pero 
en la misma línea, de la siguiente manera: 


í 23 4 + - 34 1 


Esto puede hacerse usando la rutina SWSCROLL presentada en el 
firmware del Amstrad. Con ella conseguimos desplazar un área en particu- 
lar de la pantalla, hacia arriba o hacia abajo el espacio de un carácter. 
Antes de examinar la rutina de desplazamiento, veremos brevemente las 
rutinas del firmware que vamos a utilizar. 


S€:BCOB: Esta rutina devuelve el valor actual del offset de pantalla al 
par de registros HL. Entonces podrá modificarse y reenviarse al circuito 
de vídeo. 


SíBCOS: Esta rutina te permite dar al offset de pantalla un valor a tu 
elección. A la entrada, el par de registros HL deberá contener el valor del 
offset deseado. 


SBC50: Esta rutina, llamada SWSCROLL, te permite desplazar verti- 
calmente una línea dada de la pantalla. A la entrada, B=0 para un 
desplazamiento hacia abajo, o 1 para un movimiento hacia arriba. 
H contiene el borde izquierdo del área a desplazar, L la fila superior, D el 
borde derecho y E la fila inferior. Todos ellos se representan en términos 
de espacio de caracteres, empezando en 0,0, que es la esquina superior 
izquierda de la pantalla. El registro A contiene el código de la tinta que se 
empleará para rellenar la línea que se desplaza. En nuestras rutinas utiliza- 
remos el color del papel de texto para rellenar la línea desplazada. 


S¿BB99: Al regreso de esta rutina el registro Á contiene el color actual 
del papel para el texto. Antes de usar este valor devuelto por la rutina 
SWSCROLL debemos codificarlo llamando a la rutina de la dirección 
8: BC2C. 


Con un examen de los listados para estas tres rutinas de desplazamien- 
to lateral comprobaremos que utilizamos la rutina SWSCROLL para 
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“alinear” las columnas de la imagen que han sido expulsadas por un lado 
de la pantalla y reintegradas por el lado opuesto. 


LDESP2 (DESPlazamiento Lateral 2) 


Desplaza lateralmente dos espacios una pantalla en modo 2. Las líneas 
O y 24 de la pantalla no son desplazadas en el sentido propio de la 
palabra. La rutina puede relocalizarse siempre que la dirección del espacio 
de trabajo se altere de forma que no coincida con el programa. Los bytes 
proporcionados funcionan únicamente en la dirección 40200. 


Requisitos de entrada: Desde BASIC: CALL dirección, dir, donde 
dir=1 para un desplazamiento a la izquierda y 
dir=0 para un desplazamiento a la derecha. 
Desde código máquina, A=1 y IX apunta a un 
solo byte que contiene a dir. 


Condiciones de salida: Todos los registros alterados. 


Longitud: 90 bytes. 
19 3 **. LDESP2 e. 
9D08 20 ORG 40200 
9D0g F3 30 DI 5 Prohibe interrupciones 
9D09 CD99BB 40 CALL BB99 
9D0C  CD2CBC s0 CALL *BC2C 
9DOF 325B9D 60 LD (PAPEL),A; Guarda el color del papel 
9D12 DD7E00 70 LD A, (1X) j Decide si es a izquierda o derecha 
9D13 FEOO go cP o 
9D17 2820 90 JR Z,OTRO 
9D19 244E 1009 LD H,78 
9DIB 2E00 110 LD L,9 
9D1D 164F 120 LD D,79 
9D1F. 1218 130 LD E,24 
9D21 050% 149 LD B,0 
9D23 C5 150 PUSH BC 5 Preparado para desplazar, 
9D24 ES 1509 PUSH HL ¿3 guarda los registros 
9D25 DS 170 PUSH DE 5 en la pila 
9D26 CDOBBC 180 CALL *+BCOB 3 Obtiene el offset 
9D29 23 190 INC HL 
9D2A 23 200 INC HL 5 Lo actualiza 
9D2B CDOSBC 210 CALL *BCOS 3 y vuelve a activarlo 
9DZE 3ASBID 220 LD A, (PAPEL) 
9D31 Di 2306 POP DE 
9D32 El 240 POP HL 
9D33 C1 2530 POP. BC 
9D34 CD50BC 260 CALL *+BCSO 3 Desplaza una columna, 

270 5 el espacio de un caracter 
9D37 FB 280 El 3 Permite las interrupciones 
9D38 C9 290 RET 
9D39 2600 300 OTRO LD H,0 3 Prepara los registros para 
9D3B  2E00 310 LD L,o 5 el desplazamiento de columnas 
9D3D 1601 320 LD D,i 3 al final de la rutina 
9D3F  1E18 330 LD E, 24 
9D41 0601 340 LD B, 1 
9D43 3ASBID 350 LD A, (PAPEL) 
9D46 FS 360 PUSH AF 
9D47 C5 370 PUSH BC 


9D48 D5 380 PUSH DE 


9D49 ES 390 PUSH HL 

9D4A CDOBBC 400 CALL *BCOB 3 Obtiene el offset 

9D4D 2B 410 DEC HL 

9D4E 2B 420 DEC HL 3 Altera el offset y lo 

9D4F CDOSBC 430 CALL *BCOS 3 envia al 6845 

9052 El 440 POP HL 3 (controlador de video) 

9D53 D1 450 POP DE 

9D54 Ci 460 POP. BC 

9D55 Fi 470 POP AF 

9DS6 CDS5SOBC 480 CALL *BCSO 3 Desplaza la columna de la 
490 5; izquierda, una linea 
500 ; hasta el otro extremo 

9D59 FB s10 El 

9DSA C9 520 RET 

9D3SB vo 530 PAPEL DEFB Y 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


REM Desplazamiento a izquierda y 
derecha en el modo 2 
MODE 2 
ORIGIN 0,32 ¿REM Origen de graficos 
de la ventana a desplazar 
WINDOW 1,890,2,24 : REM Ventana de 
texto que se va a desplazar. 
MOVE 0,350: DRAW 640,350 
MOVE 0,150: DRAW 440,150 
LOCATE 1,13 
PRINT "cuando esta frase termine 
dire que" 
CALL %BED19: REM Espera a cada barrido 
a$=INKEY$: IF a$="" THEN 100 
IF ASC(a$)=243 THEN CALL 40200,0 
REM Teclas de desplazamiento 
IF ASC(a$)=242 THEN CALL 40200, 1 
GOTO 90 


0 O. 0 O O O 0.0 0 


Comentarios 


Las líneas superior e inferior de la imagen no se desplazan propiamente 
hablando, siendo éste el resultado del modo en que la alteración del offset 
afecta al material expulsado por un lado de la pantalla. Son sólo las 23 
líneas centrales de la imagen las que se desplazan. 

En esta rutina se inhiben las interrupciones para conseguir mayor 
velocidad. Hablando de obtener más velocidad, observa cómo son iniciali- 
zados los registros para acceder a SWSCROLL nada más comenzar la 
rutina. Esto reduce el número de instrucciones que deben, ejecutarse entre 
la alteración del offset de pantalla y la llamada a SWSCROLL para 
limpiar el borde de la pantalla. 
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LDESP1 y LDESPO son rutinas similares, pero han sido diseñadas 
para usarse en modo 1 y 0, respectivamente. La rutina en BASIC que doy 
a continuación puede usarse para probar el funcionamiento de todas estas 
rutinas. 


10 MODE 2 

20 ORIGIN 0,32 REM No utilizar la linea 
inferior de la pantalla. 

30 WINDOW 1,80,2,24 : REM Ventana de 
texto que se va a desplazar. 

40 MOVE 0,10:DRAW 400, 100 

50 DRAW 150,50 : DRAW 200,50 

60 DRAW 300,60 : DRAW 400,100 

70 DRAW 450,20 : DRAW 500,10 

80 DRAW 600,150 : DRAW 640,10 

90 CALL £«BD19: REM Espera al barrido. 

100 ab=INKEY$: IF a$="" THEN 100 

110 IF ASC(a$)=243 THEN CALL 40200,0 

120 REM Teclas de desplazamiento 

130 IF ASC(a$)=242 THEN CALL 40200, 1 

140 GOTO 90 


O 
O 
Oo 
O 
O 
Oo 
O 
O 


OoOOoO0oJC0oo0oosoeo.o0 


Pulsando las teclas de desplazamiento lateral del cursor se conseguirá 
que la figura de la pantalla se desplace correlativamente. 
LDESPO (DESPlazamiento Lateral 0) 


Esta rutina realiza un desplazamiento lateral de un carácter en el modo 
O de pantalla. 


Requisitos de entrada: Igual que para LDESP2. 
Condiciones de salida: Igual que para LDESP2. 


Longitud: 96 bytes. 
10 3 ** LDESPO +. 
9008 20 ORG 40200 
9008 F3 30 DI 5 Prohibe interrupciones 
9D09 CD99BB 40 CALL 4BB99 
9DeC CD2CBC so CALL $BC2C 
9DOF 32679D 60 LD (PAPEL)>,A5 Guarda el color del papel 
9D12 DD7E009 70 LD A, (1X) 3 Decide si es a izquierda o derecha 
9D15S FE0O 80 cP o 
9D17 2825 90 JR Z,OTRO 
9D19 2613 109 LD H, 19 
9D1B  2E£00 110 LD L,o 
9D1D 1613 120 LD D,19 


DIF.  1E18 130 LD E, 24 


9D21 0600 140 LD B,9 


9D23 Ss 150 PUSH BC 5 Preparado para desplazar, 
9D24 ES 150 PUSH HL 3 guarda los registros 

9D23 DS 170 FUSH DE 5 en la pila 

9D26 CDORBC 189 CALL $BCOB 3 Obtiene el offset 

9D29 110400 1909 LD DE, 4 

9DzC 19 200 ADD HL,DE 5 Lo actualiza 

9D2D 23A679D 210 LD A, (PAFEL>5 Obtiene el color del papel 
9D30  CDOS5BC 220 CALL $Bcos 3 Guarda el offset en el 6845 
9D33  3A679D 23 LD A, (PAPEL>)5 (controlador de video) 
9D3ó DI 240 POP DE 

9D37 El 250 POP HL 

9D38 C1 260 POP Bc 

9D39 CDS0BC 270 CALL *BCSO 3 Desplaza una columa, 

2809 5 el espacio de un caracter 
9D3C FB 290 El 5 Permite las interrupciones 
9D3D C9 300 RET 
DIE 2609 3109 OTRO LD H,9 5 Prepara los registros para 
9D49 2E06 320 LD L,0 3 el desplazamiento de columnas 
9D42 1600 330 LD D,9 3 al final de la rutina 
9D44  1E189 340 LD E,24 
9D46 0601 350 LD B,1 
9D48  3A679D 360 LD A, (PAPEL) 
9D4B FS 370 PUSH AF 
9D4C C5 380 PUSH BC 
9D4D D5 390 PUSH DE 
9D4E ES 400 PUSH HL 
9D4F — CDOBBC 410 CALL *BCOB 3 Obtiene el offset 
9D52 AF 420 XOR A 
9D5S3 110400 430 LD DE, 4 3 Altera el offset y lo 
9D5S6 ED52 440 SBC HL,DE 
9D58  3A679D 430 LD A, (PAPEL) 
9D5B CDOS5BC 460 CALL *BCOS 5 envia al controlador de video 
DIJE El 470 POP HL 
9DSF D1 480 POP DE 
9D60 C1 4790 POP BC 
9D61 Fi 5009 POP AF 
9D62 CD50BC s10 CALL *BCSO 3 Desplaza la columna de la 

520 ; izquierda, una linea 

JO ; hasta el otro extremo 
9D65 FB 540 El 
9D66 C9 350 RET 
9D67 00 560 PAPEL DEFB O 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE O:REM Desplazamiento a izquierda 
y derecha en el modo O 

20 ORIGIN 0,32 ¿REM Origen de graficos 
de la ventana a desplazar. 

30 WINDOW 1,20,2,24 : REM Ventana de 
texto que se va a desplazar. 

40 MOVE 0,10:DRAW 400,100 

50 DRAW 150,50 : DRAW 200,50 

60 DRAW 300,60 : DRAW 400,100 

70 DRAW 450,20 : DRAW 500,10 

80 DRAW 600,150 : DRAW 640,10 

90 CALL £BD19: REM Espera al barrido. 

100 a$=INKEYS$: 1F a$="" THEN 100 

110 IF ASC(a$)=243 THEN CALL 40200, O 

120 REM Teclas de desplazamiento 


OOOoO0oO0oosOomsOo 


OOOuoOOoDOooo0 


130 1F ASC(a$)=242 


140 GOTO 90 


THEN CALL 40200, 1 


LDESP1 


(DESPlazamiento Lateral 1) 


Esta rutina realiza un desplazamiento lateral de un espacio en el modo 1. 


Requisitos de entrada: 


Condiciones de salida: 


wLongitud: 


9D08 
9D08 
9D09 
9DOC 
9DOF 
9D12 
9D15 
9D17 
9D19 
9D1B 
9D1D 
9D1F 
9D21 
9D23 
9D24 
9D25 
9D26 
9D29 
9D2C 
9D2D 
9D30 
9D33 
9D36 
9D37 
9D38 
9D39 


9D3C 
9D3D 
9D3E 
9D40 
9D42 
9D44 
9D46 
9D48 
9D4B 
9D4C 
9D4D 
9D4E 
9D4F 
9D52 
9D53 
9D56 
9D58 
9D5B 
9DSE 
9DSF 
9D60 


F3 
CD99BB 
CD2CBC 
32679D 
DD7E00 
FEO0O 
2825 
2627 
2E00 
1627 
1€18 
0600 
cs 

ES 

DS 
CDOBBC 
110200 
19 
3A679D 
CcDo5Bc 
3A679D 
Di 

El 

ci 
co5eBc 


EDS2 
3A679D 
CDesBc 
El 

Di 

c1 


10 

20 

30 

40 

50 

60 

70 

ao 

90 
190 
110 
120 
130 
140 
150 
160 
170 
190 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
470 


OTRO 


Como para LDESP?2. 
Como para LDESP?2. 


96 bytes. 
** LDESP1 *. 
ORG 40200 
DI 5 
CALL $BB99 
CALL *+BC2C 
LD (PAFEL),A5 
LD A, (IX) ; 
CcP O 
JR  Z,OTRO 
LD  H,39 
LD L,0 
LD  D,39 
LD E, 24 
LD B,0 
FUSH BC 5 
PUSH HL 5 
PUSH DE 5 
CALL *ECOB 5 
LD DE,Z2 
ADD HL,DE 5 
LD A, (FAFEL)5 
CALL R$BCOS 3 
LD A, (PAFEL)5 
FOP.— DE 
FOP HL 
FOP. RC 
CALL RECO 5 
El 5 
RET 
LD H,0 3 
LD  L,0 ; 
LD  D,0 ; 
LD  E,24 
LD B,1 
LD A, (PAPEL) 
PUSH AF 
PUSH BC 
PUSH DE 
FUSH HI 
CALL R+BECOB 3 
XOR A 
LD DE,2 ; 
SBC — HL,DE 
LD A, (FAPEL) 
CALL *$BCOS 5 
POP HL 
POP DE 
POP. BC 


Prohibe interrupciones 


Guarda el color del papel 
Decide si es a izquierda o derecha 


Freparado para desplazar, 
guarda los registros 

en la pila 

Obtiene el offset 


Lo actualiza 

Obtiene el color del papel 
Guarda el offset en el 6845 
(controlador de video) 


Desplaza una columna, 

el espacio de un caracter 
Permite las interrupciones 
Frepara los registros para 


el desplazamiento de columnas 
al final de la rutina 


Obtiene el offset 


Altera el offset y lo 


envia al controlador de video 


9D61 Fi 500 POP. AF 


9D62 CD50BC 510 CALL 4BCSO 3 Desplaza la columna de la 
520 ; izquierda, una linea 
530 ; hasta el otro extremo 
9D6S FB 540 El 
9D656 C9 550 RET 
9D67 00 560 PAPEL DEFB 0 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


MODE 1:REM Desplazamiento a izquierda 
y derecha en el modo 1 
ORIGIN 0,32 ¿REM Origen de graticos 
de la ventana a desplazar. 
WINDOW 1,40,2,24 : REM Ventana de 
texto que se va a desplazar. 
40 MOVE 0, 10:DRAW 400,100 
50 DRAW 150,50 : DRAW 200,50 
60 DRAW 300,60 : DRAW 400,100 
70 DRAW 450,20 : DRAW 500,10 
80 DRAW 600,150 : DRAW 640,10 
90 CALL %£BD19: REM Espera al barrido. 
100 a$=INKEYS$: IF at="" THEN 100 
110 IF ASC(a$)=243 THEN CALL 407200,0 
120 REM Teclas de desplazamiento 
130 IF ASC(a$)=242 THEN CALL 40200, 1 
140 GOTO 90 


O 
O 
O 
O 
O 
O 
O 
O 


Probablemente adviertas que es posible incorporar todas estas rutinas 
en un único programa, en el que la rutina compruebe el modo de pantalla 
actual y actualice los registros apropiadamente para las rutinas SWSCROLL 
y para el offset de pantalla. 

Acabamos de ver cómo desplazar toda la pantalla hacia arriba, hacia 
abajo y lateralmente. Usando la rutina del firmware localizada en la 
dirección £BC50, también podremos desplazar hacia arriba o hacia abajo 
un área dada de la pantalla, que llamaré ventana de desplazamiento. Las 
dos rutinas que vamos a examinar a continuación desplazan un pequeño 
área de la pantalla lateralmente, una versión horizontal de SWSCROLL. 
El material expulsado por un lado de la ventana de desplazamiento se 
pierde. Sin embargo, para realizar estos movimientos, hay que examinar 
brevemente la forma en que la memoria de video del Amstrad ha sido 
dispuesta, ya que tendremos que elaborar un método de acceso directo a 
la memoria de pantalla para realizar el resto de los desplazamientos de 
este capítulo. El resto de las rutinas de desplazamiento continuarán traba- 
jando con el espacio de un carácter como unidad básica de movimiento. 
Así que vamos con la disposición de pantalla. 

Cada carácter de la pantalla, en cualquier modo de pantalla, está 
formado verticalmente por ocho líneas de pantalla. La pantalla en 
su totalidad tiene una altura de 25 filas, lo que nos da un resultado 
de 200 líneas de pantalla para todos los modos. Todos los modos de 
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pantalla utilizan 16384 bytes de memoria, empezando en la dirección 
8:C000 y terminando en la dirección £¿FFFF. Las imágenes para todos los 
modos de pantalla tienen un ancho de 80 bytes. Esto es, una línea de 
pantalla de izquierda a derecha, necesita 80 bytes de memoria de pantalla 
para definir su contenido. Esto explica la necesidad de 16384 bytes para la 
memoria de pantalla (200 líneas de pantalla con 80 bytes cada una). 
La disposición exacta de la memoria de pantalla en relación con los 
cuadros de caracteres, etc. dependerá del modo de pantalla en uso. 


Modo 2 


Es el modo de pantalla de uso más sencillo. Al igual que la memoria 
de pantalla en todos los demás modos, la memoria de video se dispone en 
ocho bloques de memoria de 2K, que tras un cambio de modo se organi- 
zan de la siguiente forma. 

En modo 2, cada carácter tiene un ancho de un byte; por esta razón la 
pantalla tiene 80 columnas en este modo. Cada bit dentro de cada byte 
corresponde a un punto de pantalla. Así, la posición superior de la 
pantalla, 1,1, tras un cambio de modo, se define por el contenido de 
$:C000. El carácter consta de ocho líneas de pantalla, que se, toman de los 
otros siete bloques de memoria de 2K. En este caso, la fila 2 del carácter 
se define por el byte en £C800, la fila 3 por £¿D000, la fila 4 por 8¿D800, 
y así sucesivamente. 


ESQUINA SUPERIOR IZQUIERDA 
8.C000 


8.C800 
8,D000 
8,D800 
8.E000 
8,E800 
8 FOOO 


8,F800 


Disposición de la RAM de pantalla 


Cuadro de un carácter en modo 2 


Si hay gráficos en la pantalla, las posiciones de los caracteres corres- 
pondientes tendrán alterados ciertos bytes de acuerdo con los gráficos 
dibujados. Una vez conocida la dirección dentro de la memoria de panta- 
lla de la fila superior del carácter en cuestión, podemos obtener los otros 7 
bytes que conforman la definición de este cuadro del carácter, añadiendo 
repetidamente 2048 a la primera dirección hasta obtener las direcciones de 
las otras siete líneas de pantalla. En modo 2 no existe información en 
cuanto a color; si un punto de pantalla va a ser expuesto con el color 
principal, el correspondiente bit en el byte apropiado se coloca a 1. Si se 
va a exponer con el color de fondo, el bit se pondrá a 0. La relación entre 
las filas de una misma posición de carácter, estando separadas entre sí por 
2048 bytes, es la misma en todos los modos de pantalla. 


Modo 1 


Aquí se complica un poco el asunto, ya que en este modo existe la 
posibilidad de exponer más de un color. Cada cuadro de carácter tiene un 
ancho de 2 bytes, lo que explica que la pantalla en modo 1 tenga una 
anchura de 40 columnas. El cuadro de un carácter en modo 1 se define en 
la forma de la figura. Al igual que antes, después de un cambio de modo, 
veremos qué definen los bytes en la posición 1,1 de la pantalla. 


A 
AO 
O 
NES 


Uno de los bytes que forman el carácter define el color de los puntos de 
pantalla, así como el estado en que se encuentren. 

El otro byte de la memoria de pantalla, por tanto, define el estado de 
una línea de pantalla que tiene por anchura la mitad de un carácter. Con 
lo cual el cuadro del carácter es definido por 16 bytes de memoria de 
video. 


Modo 0 


Dado que existen dieciséis colores disponibles en este modo de panta- 
lla, cada carácter requiere mayor número de bytes para definirlo; en éste el 
ancho es de cuatro bytes. Esto nos da las veinte columnas de la pantalla 
de texto del modo 0. Inmediatamente después de una orden modo 0 el 
mapa de la memoria de video de la posición de pantalla 1,1 queda como 
se indica en la página siguiente. 


2 ác000— 000 | — 8:C003 
ll | Y[ | |gcso-—e8cso 
1 000 8008 | DO00— 8D003 
LL 60050009 | D800 — 8,0003 
LL sono 6009 | E000 — 8,E003 


LTL I-]aesoo—e8.esos 
lt TI 1] aro0—8roos 
lt TI | Jarso—ersos 


PIANOS 


Disposición de pantalla en modo 0 


Según esto, el modo 0 requiere 32 bytes de memoria de video para 
definir cada carácter. 

Bueno, ya sabemos que cada línea de pantalla, dentro de un mismo 
carácter, queda separada de la siguiente por 2048 bytes. Ahora necesita- 
mos algún medio para hallar en la memoria de video la dirección de la 
línea superior del carácter que nos interese. 

Afortunadamente, los simpáticos chicos de Amsoft han resuelto este 
problema proporcionándonos una rutina firmware que realiza este trabajo. 
Esto se consigue llamando a la dirección S¿BC1A, y la posición del 
carácter se transmite a la rutina en el par de registros HL. El registro H 
contiene la posición X y el registro L la posición Y. Tanto X como Y 
toman valores de O en adelante, siendo 0,0 la esquina superior izquerda de 
la pantalla. 

La rutina devuelve una dirección en el par de registros HL. Para el 
modo 2, ésta será la dirección de la posición de la fila superior del carácter 
que nos interese. Para los modos O y 1 será la dirección del byte más a la 
izquierda de la fila superior. Así la dirección del primer byte de la segunda 
fila será la dirección (HL+2048). Adentrándonos en las rutinas de bucle 
que enseguida veremos, están las instrucciones de movimiento de bloques 
LDIR y LDDR de la CPU Z-80. Para aquellos que no estén muy 
versados en estas instrucciones, voy a dar una rápida descripción de las 
mismas y de su utilización. 
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LDIR y LDDR 


Un método para transferir bytes a través de la memoria del ordenador 
puede ser repetir un determinado número de veces un lazo de instruccio- 
nes como las que a continuación exponemos. 


LD A, (HL) 
LD (DE>,A 
INC HL 
INC DE 


Esta secuencia es muy directa, y realiza la transferencia de forma 
sencilla. El problema surge cuando hay que transferir muchos datos, pues 
esta sentencia, cuando se repite a menudo, requiere demasiado tiempo. Sin 
embargo, el Z-80 tiene implementadas instrucciones de transferencia de 
bloques. La LDIR se ejecuta con la siguiente estructura: 


LD HL,direccion fuente 

LD DE,direccion de destino 
LD BC,numero de bytes 
LDIR 


La dirección en el registro HL es la dirección desde la cual los bytes 
serán transferidos y DE es la dirección donde serán almacenados. El 
registro BC contiene el número de bytes a transferir. El primer byte 
transferido irá a la dirección DE, el segundo a la dirección DE+1 y así 
sucesivamente. Tanto HL como DE son incrementados en cada transferen- 
cia individual. Una vez que la instrucción LDIR comienza a ejecutarse, no 
parará hasta que todos los bytes sean transferidos. Esto es mucho más 
rápido que realizar el mismo trabajo con instrucciones individuales del 
Z-80, así que cada vez que tengas un montón de datos que copiar deberías 
usar esta instrucción o la LDDR. LDDR hace lo mismo, con la diferencia 
de que los registros HL y DE son decrementados en cada transferencia 
individual. 

Los listados de estas rutinas de bucle están bien documentados y 
podrás seguir su evolución examinando los listados y las notas antes 
indicadas sobre la disposición de la memoria de pantalla, para los diferen- 
tes modos de pantalla. 


IZDES (DESplazamiento a la IZquierda) 


Esta rutina, en cualquier modo, desplazará un área dada de pantalla, el 
espacio de un carácter a la izquierda. 

Cualquier carácter desplazado fuera del borde izquierdo de la ventana 
de trabajo se pierde. La rutina es, pues, análoga a la SWSCROLL pertene- 
ciente al firmware. 


Requisitos de entrada: Desde BASIC: CALL dirección,x1,y1,x2,y2. 
Las coordenadas van desde 1,1, siendo ésta la 
esquina superior izquierda de la pantalla. 
Desde código máquina A=4 y IX apunta a un 
bloque de parámetros como el mostrado a conti- 
nuación. 


Bloque de parámetros para IZDES 


Condiciones de salida: Todo alterado. 


Longitud: 169 bytes. 

10 5 ** IZDES *». 
9D08 20 ORG 40200 
9D08 FEO4 30 cP 4 
GDOA CO 40 RET  NZ 3 Si no hay 4 parametros, retorno 
9DOB CD11BC 50 CALL $BC11 3 Obtiene el modo de pantalla 
9DOE 32B09D $0 LD (MODO)>,A 
9D11  CD959D 70 CALL ANCHO 3 Numero de caracteres a mover 
9D14 32AE9D go LD (CAR)>,A 
9D17 CDS5F9D 90 CALL MODOC 5 Ajusta este valor para que 
9DIA 32AE9D 100 LD (CAR),A 3 encaje en el modo actual 
9D1D AF 110 XOR A 


9D1E 
9DZ21 
9D24 
9D27 
9D2A 
9D2B 
9D2C 
9D2F 
9D3O 
9D31 


9D34 
9D35 
9D37 
9D38 
9D39 
9D3A 
9D3D 
9D3F 
9D40 
9D41 

9D42 
9D45 
9D46 
9D47 
9D48 
9D4C 
9D4E 
9D51 

9D52 
9D53 
9D54 
9D55 
9D56 
9D57 
9D58 
9D59 
9D5SA 
9D5B 
9D5cC 

9DSE 
S9D5SF 

9D62 
9D64 

9D66 
9D69 
9DEA 
9D6c 
9D5E 
9D71 

9D72 
9D73 
9D76 
9D77 
9D78 
9D79 
9D7C 
9D7E 
9D7F 
9D8i 
9D83 
9D84 
9D85 
9D86 
9D87 
9D88 
9D89 
9DBA 
9D8D 
9D9O 


32AF9D 
DD6606 
DD6£E04 
CD899D 
ES 
cs 
CD389D 
ci 
El 
CDAO9D 


2C 
10F3 


ES 
ED4BAE9D 
EDBO 
010008 
El 

09 

Di 

ES 

DS 

El 

09 


ES 
DD7E0O 
DD65604 
94 


120 
130 
140 
150 
150 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
sio 


OBUCLE 


MOVIM 


BUCLE 


MODOC 


MODi1 


MODO 


AJUSTE 


MOVO 


ALTURA 


LD (CAR+1),A 
LD  H,(IX+6) 


CALL PONESP 


t 
DJNZ OBUCLE 


POP HL 
ADD HL,BC 
POP. DE 
PUSH HL 
PUSH DE 
POP HL 
ADD HL,BC 
PUSH HL 
POP. DE 
POP HL 
POP. BC 
DJNZ BUCLE 
RET 


LD A, (MODO) 
cr 2 

JR — NZ,MODA 
LD A, (CAR) 


LD  A,(IX) 
LD  H,(1X+4) 
SUB H 


3 Pone a cero el byte alto 

3 Impone las coordenadas de 

35 la esquina superior izquierda 
3 Numero de lineas? 


5 Realiza el desplazamiento 


3 Rellena la columna de la 
derecha 
3 Desplaza la siguiente linea 


Convierte coordenadas fisicas 
en posiciones de pantalla 
8 Bytes a desplazar 


Movimiento del caracter 
de byte en byte 


2... 


3 Numero de bytes horizontales 
Movimiento de bloques 
3 El siguiente esta 2048 mas alla 


3 Direccion de la proxima linea 


3 Proxima direccion de destino 


3 Hecho para 8 bytes 


5 Ajuste del numero de bytes 
3 horizontales a desplazar ( Modo ) 


3 Modo 13 ancho de 2 bytes 


5 Modo 03 ancho de 4 bytes 


5 Ajuste de la direccion 
de cada linea, a la anchura del 
caracter 


3 Calcula las líneas que 
3 hay que desplazar 


9D91  3C 820 INC A 


9D92 47 830 LD E,A 

9D93 El 840 POP HL 

9D94 C9 850 RET 

9D935 DD7E02 860 ANCHO LD A, (IX+2) 3 Numero de caracteres 

9D98 ES 870 PUSH HL 5 a desplazar horizontalmente 
9D99 DD6606 880 LD H, (1X+6) 

9D9C 94 890 SUB H 

9D9D 3C 900 INC A 

9D9E El 910 POP HL 

9D9F C9 920 RET 

9DAO ES 930 PONESP PUSH HL 3 Rellena la columna de 
9DA1 DD4602 940 LD H, (1X+2> 3 la derecha con un espacio 
9DA4 CD7S5BB 950 CALL 4BB75 

9DA7 3E20 960 LD A,32 

9DA9 CDS5ABB 970 CALL $BBSA 

9DAC El 980 POP HL 

9DAD C9 990 RET 

9DAE 0000 1000 CAR DEFW 00 

9DBO 00 1010 MODO DEFB O 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


MODE 1 
CLS : FOR I=1 TO 10 
PRINT "123456789012345678790127345678" 


NEXT 
CALL 40200,2,2,10,10 
FOR H=0 TO 200 : NEXT : GOTO 50 


Comentarios 


Esta rutina no está protegida contra parámetros incoherentes, así que 
no intentes trabajar con coordenadas ridículamente grandes, o atribuyen- 
do a y2 un valor inferior a yl. ¡Quedas advertido! 

El programa no es relocalizable con facilidad y los bytes utilizados son 
para la dirección 40200. Observa cómo usamos una rutina del firmware 
para recuperar el modo de pantalla en uso. La rutina llamada en £«BC11, 
devuelve un valor en el registro A que corresponde al modo de pantalla. 
La rutina entonces mueve los bytes de memoria según el modo de pan- 
talla. 


DESPDER (DESPlazamiento a la DERecha) 


Esta rutina desplaza un área definida en la pantalla el espacio de un 
carácter hacia la derecha. Al igual que antes, cualquier cosa expulsada por 
el borde derecho de la ventana se pierde. La rutina funcionará en cual- 
quier modo de pantalla. 
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Requisitos de entrada: Los mismos que para IZDES. 


Condiciones de salida: Los mismos que para IZDES. 


Longitud: 138 bytes. 
10 5 *e DESPDER **e 
9E98 20 ORG 40600 
9E98 FEO4 30 cP 4 
9E9A CO 40 RET  NzZ 3 Si no hay 4 parametros, retorno 
9E9B  CD11BC 50 CALL *BC11 3 Obtiene el modo de pantalla 
QE9E  —324E9F 60 LD (MODO) ,A 
QEA1 CD339F , 70 CALL ANCHO 3 Numero de caracteres a mover 
QEAF% 324C9F 80 LD (CAR),A 
SEA7 CDFD9E 90 CALL MODOC 3 Ajusta este valor para que 
QEAA 324C9F 100 LD (CAR),A j encaje en el modo actual 
QEAD AF 110 XOR A 
QEAE —324D9F 120 LD (CAR+1),A 5 Pone a cero el byte alto 
QEB1  DD6602 130 LD H, (1X+2) 35 Impone las coordenadas de 
9EB4 DD6E04 140 LD L, (1X+4) 3 la esquina superior derecha 
9EB7 CD279F 150 CALL ALTURA 3 Numero de lineas? 
SEBA ES 150 OBUCLE PUSH HL 
QEBB C5 170 PUSH BC 
QEBC CDC89E 180 CALL MOVIM 3 Realiza el desplazamiento 
GEBF Ci 190 POP BC 
ECO El 200 POP HL 
9EC1 CD3E9F 210 CALL PONESP 3 Rellena la columna de la 
220 ; derecha 
9EC4 2C 230 INC L 3 Desplaza la siguiente linea 
9ECS 10F3 240 DJNZ OBUCLE 
9EC7 C9 250 RET 
9EC8 2D 260 MOVIM DEC L 
9EC9 25 270 DEC H 3 Convierte coordenadas fisicas 
QECA CD1ABC 280 CALL RBC1A 3 en posiciones de pantalla 
9ECD 3A4E9F 290 LD A, (MODO) 3 Ajusta las operaciones 
EDO FEO2 300 cP 2 3 al modo actual de pantalla 
9ED2 2807 310 JR Z,0OK 
9ED4 FEO1 320 cP 1 
9ED6 2802 330 JR Z,0K2 
9ED8 23 340 INC HL 
9ED9 23 350 INC HL 
SEDA 23 360 0K2 INC HL 
9EDB 0608 370 OK LD B,8 3 8 Bytes a desplazar 
JEDD ES 380 PUSH HL 
JEDE Di 390 POP DE 
EDF 2B 400 DEC HL 3 Movimiento del caracter 
GEEO CD179F 410 CALL AJUSTE 3 de byte en byte 
9EE3 C5 420 BUCLE PUSH BC 
QEE4 D5 430 PUSH DE 
JEES ES 440 PUSH HL 
QEE6 ED4B4C9F 450 LD BC, (CAR) 5 Numero de bytes horizontales 
QEEA EDB8 460 LDDR 5 Movimiento de bloques 
QEEC 010008 470 LD BC, 2048 3 El siguiente esta 2048 mas alla 
QEEF El 480 POP HL 
9EFO 09 490 ADD HL,BC 3 Direccion de la proxima linea 
500 5 a trasladar 
GEF1 Di 510 POP DE 
QEF2 ES 520 PUSH HL 
9EF3 DS 530 PUSH DE 
9EF4 El 540 POP HL 
JEFS 09 550 ADD HL,BC 
9EF6 ES 560 PUSH HL 
QEF7 Di 570 POP DE 3 Proxima direccion de destino 
9EF8B El 580 POP HL 
GEF9 C1 590 POP BC 
GEFA 10E7 600 DJNZ BUCLE 3 Hecho para 8 bytes 
QEFC C9 610 RET 


EFD 3A4E9F 620 MODOC LD A, (MODO) Ajuste del numero de bytes 


9FOO FEO2 630 cP 2 3 horizontales a desplazar ( Modo ) 
9FO2 2004 640 JR NZ,MOD1 

9F04 3A4CIF 650 LD A, (CAR) 

9FO7 C9 660 RET 

9FO8B FEOO 670 MODi cP Lo) 

9FOA 2805 680 JR Z ,MODO 

9FOC  3A4C9F 690 LD A, (CAR) 

9FOF 87 700 ADD A,A 3 Modo 13 ancho de 2 bytes 
9F10 C9 710 RET 

9F11  3A4C9F 720 MODO LD A, (CAR) 

9F14 87 730 ADD A,A 

9F15 87 740 ADD A,A 3 Modo 05 ancho de 4 bytes 
9F16 C9 750 RET 

9F17 3A4E9F 760 AJUSTE LD A, (MODO) 3 Ajuste de la direccion 
9F1IA FEO2 770 cP 2 3 de cada linea, a la anchura del 
9F1C CB 780 RET Z j caracter 

9F1D FEO1 790 cP 1 

9F1F 2002 800 JR NZ,MOVO 

9F21 2B B10 DEC HL 

9F22 C9 820 RET 

9F23 2B 830 MOVO DEC HL 

9F24 2B 840 DEC HL 

9F25 2B eso DEC HL 

9F26 C9 860 RET 

9F27 ES 870 ALTURA PUSH HL 3 Calcula las lineas que 
9F28 DD7E0O eso LD A, (IX) 3 hay que desplazar 

9F2B DD6604 890 LD H, (1X+4) 

9F2E 94 900 SUB H 

9F2F 30 910 INC A 

9F3O 47 920 LD B,A 

9F31 El 930 POP HL 

9F32 C9 940 RET 

9F33 DD7E02 950 ANCHO LD A, (1X+2) 3 Numero de caracteres 
9F36 ES 960 PUSH HL 3 a desplazar horizontalmente 
9F37 DD6606 970 LD H, (1X+6) 

9FIA 94 980 SUB H 

9F3B 3C 990 INC A 

9F3C El 1000 POP HL 

9F3D C9 1010 RET 

9F3IE ES 1020 PONESP PUSH HL 3 Rellena la columna de 
9F3F DD66065 1030 LD H, (IX+6) 3 la derecha con un espacio 
9F42 CD75BB 1040 CALL *BB75 

9F4S 3E20 1050 LD A,32 

9F47 CD5ABB 1060 CALL *BBSA 

9F4A El 1070 POP HL 

9F4B C9 1080 RET 

9F4C 0000 1090 CAR DEFW 00 

9F4E 00 1100 MODO DEFB O 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


MODE 1 
CLS : FOR I=1 TO 10 
FRINT "1234567890123456789012345678" 


NEXT 
CALL 40600,2,2,10,10 
FOR H=0 TO 200 : NEXT : GOTO 50 
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Comentarios 


Como ocurría con la IZDES, no se detecta ningún error en los paráme- 
tros introducidos en la rutina. La rutina no es fácilmente relocalizable y 
los bytes del listado son para la dirección 40600. 

Tanto para IZDES como para DESPDER, la parte más lenta es la 
rutina PONESP que rellena la columna que ha sido desplazada fuera de la 
ventana. Esta área del programa utiliza una rutina del firmware. Podría 
sustituirse por una sección de código que escribiese directamente ceros en 
las direcciones apropiadas de la memoria de pantalla. 

El siguiente programa de BASIC probará las rutinas IZDES y 
DESPDER, según las direcciones utilizadas. 


MODE 1 

REM direccion=40200 para IZDES 
REM direccion=40600 para DESPDER 
direccion=40200 

CLS : FOR I=1 TO 10 


FPRINT "12345678901234567879012345678" 


NEXT 

CALL direccion,2,2,10,10 
90 FOR H=0 TO 200 : NEXT ¿REM retardo 
100 GOTO 80 


El problema principal en las rutinas dadas hasta aquí, es que el 
material expulsado por un borde de la ventana se pierde definitivamente. 
Las tres últimas rutinas de desplazamiento que vamos a ver tratan esta 
cuestión, dando una versión de SWSCROLL que recupera el material que 
ha sido expulsado de la ventana, y versiones de la IZDES y de la 
DESPDER que realizan trabajos similares. Estas rutinas funcionarán en 
cualquier modo de pantalla y desplazarán, al igual que las rutinas anterio- 
res, tanto textos como gráficos. 


DESPIZR (DESPlazamiento a la lZquierda Recuperando) 


Esta rutina desplaza un área definida de la pantalla el espacio de un 
carácter a la izquierda. Todo lo que excede del borde izquierdo de la 
pantalla reaparece por el borde derecho. Esto puede resultar muy aparente 
para desplazar la página de presentación de un programa, encabezamien- 
tos, etc., especialmente bajo el control de las órdenes AFTER o EVERY 
del BASIC. 


Requisitos de entrada: Igual que para IZDES. 
Condiciones de salida: Todos los registros son alterados. 


Longitud: 385 bytes. 


10 5 ** DESPIZR **x 


A21C 20 ORG 41500 
A21C FEO4 30 cP 4 
AZ1E CO 40 RET NZ 3 Si mo hay 4 parametros, retorno 
A21F CD11BC 50 CALL $BC11 3 Obtiene el modo de pantalla 
A222 327443 60 LD (MODO>,A 
A225 CDACA2 70 CALL ANCHO 3 Numero de caracteres a mover 
A228 327143 go LD (CAR)>,A 
A22B CD76AM2 90 CALL MODOC 3 Ajusta este valor para que 
A22E 327143 100 LD (CAR),A 3 encaje en el modo actual 
A231 AF 110 XOR A 
A232 3272A3 120 LD (CAR+1),A 5 Fone a cero el byte alto 
A235 DD4606 130 LD H, (1X+6) 5 Impone las coordenadas de 
A238 DD6E04 140 LD L, (1X+4) 35 la esquina superior derecha 
A23B CDA0AZ 150 CALL ALTURA 3 Numero de lineas? 
A23E ES 1650 OBUCLE PUSH HL 
A23F C5 170 PUSH BC 
A240 CDOS5A3 180 CALL OBCAR 3 Obtiene el caracter 
A243 CD4FAZ 190 CALL MOVIM 5 Realiza el desplazamiento 
A246 C1 200 POP. BC 
A247 El 210 POP HL 
A248 CDB7A2 220 CALL PONESP 3 Rellena la columna de la 
230 5; derecha con el caracter 
A24B 2C 240 INC L 3 Desplaza la siguiente linea 
A24C  10FO 250 DJNZ OBUCLE 
A24E C9 260 RET 
A24F 2D 270 MOVIM DEC L 
A250 25 280 DEC H 3 Convierte coordenadas fisicas 
A2531 CD1ABC 290 CALL HBC1A 3 en posiciones de pantalla 
A2354 0608 300 LD B,8 j 8 Bytes a desplazar 
A256 ES 310 PUSH HL 
A257 Di 320 POP DE 
A258 23 330 INC HL 3 Movimiento del caracter 
A259 CD?90A2 340 CALL AJUSTE 3 de byte en byte 
A25C  C5 350 BUCLE PUSH BC 
A25D DS5 360 PUSH DE 
A25E ES 370 PUSH HL 
A25F ED4B71A3 380 LD BC, (CAR) 3 Numero de bytes horizontales 
A263 EDBO 390 LDIR 5 Movimiento de bloques 
A265 010008 400 LD BC, 2048 3 El siguiente esta 2048 mas alla 
A268 El 410 POP HL 
A269 09 420 ADD HL,BC 3 Direccion de la proxima linea 
430 ; a trasladar 
A26A Di 440 POP DE 
A26B ES 450 PUSH HL 
A26C — D5 460 PUSH DE 
A26D El 470 POP HL 
A26E 09 480 ADD HL,BC 
A26F ES 490 PUSH HL 
A270 Di 300 POP. DE 5 Froxima direccion de destino 
A271 El 510 POP. HL 
A272 C1 520 POP BC 
A273 10E7 530 DJNZ BUCLE 3 Hecho para 8 bytes 
A275 C9 540 RET 
A276  3A74A3 550 MODOC LD A, (MODO) 5 Ajuste del numero de bytes 
A279 FEO2 560 cP £ 3 horizontales a desplazar ( Modo ) 
A27B 2004 570 JR NZ,MOD1 
A27D 3A71A3 580 LD A, (CAR) 
A280 C9 590 RET 
A281 FEOO 600 MOD1 cP 19) 
A283 2805 610 JR 7 ,MODO 
A285 J3A71A3 620 LD A, (CAR) 
A28g 87 630 ADD A,A 3 Modo 13 ancho de 2 bytes 
A289 C9 640 RET 
AZBA 3A71A3 650 MODO LD A, (CAR) 
A28nD 87 660 ADD A,A 
AZ8E 87 670 ADD A,A 3 Modo O; ancho de 4 bytes 
A28F C9 680 RET 
A290 3A74A3 690 AJUSTE LD A, (MODO) 5 Ajuste de la direccion 
A293 FEO2 700 cP 2 53 de cada linea, a la anchura del 
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A295 
A296 
A298 
AZ9A 
A29B 
A29C 
A29D 
AZ9E 
Aa29F 
AZAO 
AZA1 

A2A4 
A2ZA7 
AZA9 
AZA9 
AZAR 
AZAB 
AZAC 
A2ZAF 
AZBO 
AZB3 
A2B4 
AZB5 
A2B6 
A2B7 
A2B9 
A2B9 
AZBA 
AZBC 
A2BF 
AZCO 
AZ2C1 

A2C4 
A2C6 
A2C89 
AZCA 
A2CC 
A2CF 
A2D2 
A2D3 
A2D5 
AZD6 
A2D89 
A2ZDA 
AZ2DB 
A2DC 
AZDD 
AZDE 
AZE1 

A2E4 
AZE7 
AZE8 
A2E9 
AZEA 
AZEC 
AZEE 
A2F1 

AZF4 
A2F7 
AZFA 
A2FD 
A2FE 
A2FF 
A3JOO 
A3O1 

A3O2 
A3O4 
AJOS 
AJO7 
A3O8 


ce 
FEO1 
2002 
23 

co 

23 

23 

23 

c9 

ES 
DD7E0O 
DD66504 
94 


c5 
DDES 
DD6602 
25 
2D 
3A74A3 
FEO1 
2816 
FEOO 
2822 
CD3AA3 
DD7E0O 
77 
DD23 
19 
10F7 
DDE1 
ci 
Di 
El 
co 
CD3AA3 
CD69A3 
CD69A3 
2B 
2B 
19 
10F5 
18EA 
CD3AA3 
CD69A3 
CD69A3 
CD69A3 
CD69A3 
2B 
2B 
2B 
2B 
19 
10ED 
18D2 
ES 
c5 
D5 


710 
720 
73 
740 
750 
760 
770 
780 
790 
800 
elo 
820 
830 
840 
850 
850 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


MOvVO 


ALTURA 


ANCHO 


PONESP 


CHPL 


POK 


PMODi 
P1L 


PMODO 
PoL 


OBCAR 


z 
1 
NZ,MOVO 
HL 


HL. 
HL 
HL 


HL 
A, (1X) 
H, (1X+4) 
H 

A 

B,A 

HL 


A, (1X+2) 
HL 

H, (1X+6) 
H 

A 

HL 


HL 

DE 

BC 

1X 

H, (1X+2) 
H 

L 

A, (MODO) 


1 
7, FMODA 
O 
Z,FMODO 
INIC 

A, (DO 
(HL),A 
IX 

HL, DE 
CHPL 

IX 

BC 

DE 

HL 


INIC 
PONHL 
PONHL 
HL 

HL 
HL, DE 
P1L 
POK 
INIC 
PONHL 
PONHL 
PONHL 
PONHL 
HL 

HL 

HL 

HL 
HL, DE 
POL 
POK 
HL 

BC 

DE 


.. .. 


e. . e... 000 


e. .. 020 


caracter 


Calcula las lineas que 
hay que desplazar 


Numero de caracteres 
a desplazar horizontalmente 


Extrae la columna a rellenar 


Fila y columna fisicas 
Selecciona la rutina para 
el modo actual de pantalla 


Rutina para el modo 2 

Extrae de la memoria 

Lo pone en la memoria de pantalla 
Siguiente posicion de la memoria 
Byte de la RAM de video 

Repite esto para 8 bytes 


Rutina para el modo 1 

2 bytes cada caracter 

Almacena 2 bytes en la memoria 
de pantalla 


Direccion del siguiente byte 
de memoria 


Modo Oj 4 bytes 


Extrae los 4 bytes 
que forman el caracter 


Siguiente caracter de la fila 


AJOS  DDES 1410 PUSH IX 


AJOB 25 1420 DEC H 

A3JOC 2D 1430 DEC L 

AJOD 3A74A3 1440 LD A, (MODO) 3 Chequea el modo actual, 
AJ10 FEO1 1450 cr 1 3 saltando a la rutina preparada 
A312 2816 1450 JR Z,GMOD1 3 para ese modo 

AJ14 FEOO 1470 cP o 

AJ16 2831 1480 JR Z,GMODO 

A318 CD3AA3 1490 CALL INIC 3 Modo 2; 1 byte 

A3J1B 7E 1500 CHGL LD A, (HL) 

AJ1C DD7700 1510 LD (1X),A 

A31F DD23 1520 INC — IX 

A3J21 19 1530 ADD HL,DE 

A322 10F7 1540 DJNZ CHGL 

A324 DDE1 1350 CAROK POP IX 3 Restaura los registros 
A326 Di 1560 POP DE 

A327 Ci 1570 POP BC 

A328 El 1580 POP. HL 

A3J29 C9 1590 RET 


A32A CD3AA3 1600 GMODi CALL INIC 
A3J2D CD61A3 1610 MiL CALL sHL 


Rutina para el modo 1 
Guarda 2 bytes de la memoria 


e. 0. . e 


A330 CD61A3 1520 CALL SHL de pantalla por cada caracter 
A3J33 2B 1630 DEC HL de la linea 
A334 2B 1640 DEC HL 
A335S 19 1550 ADD HL,DE 3 Siguiente direccion de 
1660 3 la RAM de video 
A3J36 10F5 1670 DJNZ MiL 
A338  18EA 1580 JR CAROK 
AJJA CD1ABC 1590 INIC CALL *BC1A 3 Rutina que obtiene la 
A33D DD2175A3 1700 LD IX, TEMP 3 direccion del primer caracter, 
A3J41 0608 1710 LD R,8 3 introduciendolo en HL 
A3J43 110008 1720 LD DE, 2048 
AJ46 C9 1730 RET 
AJ47 10E4 1740 DJNZ MiL 


A349 CD3AA3 1750 GMODO CALL INIC 
AJA4C CD61A3 1760 MOL CALL SHL 


Rutina para el modo O 
4 bytes de anchura para 


AJAF CD61A3 1770 CALL SHL cada caracter 

A352 CD61A3 1780 CALL SsHL 

A335S CD61A3 1790 CALL SsHL 

A358 2B 1800 DEC HL 

A3J39 2B 1810 DEC HL 

AJSA 2B 1820 DEC HL 

A3JSB 2B 1830 DEC HL 

A3JSC 19 1840 ADD HL,DE 

A3S3SD  10ED 1850 DJNZ MOL 

A3JSF  18C3 1860 JR CAROK 

AJ61 7E 1870 SHL LD A, (HL) 3 Transfiere un byte desde 
A3J62 DD7700 1880 LD (IX),A 3 la RAM de pantalla, a un almacen 
AJóS 23 1890 INC HL 3 de la memoria 

AJ656 DD23 1900 INC — IX 

A368 C9 1910 RET 

A369 DD7E0O 1920 PONHL LD A, (IX) 3 Transfiere un byte desde 
AJEC 77 1930 LD (HL),A 3 el almacen de memoria, a la 
AJ6D 23 1940 INC HL 3 memoría RAM de pantalla 
AJ6E —DD23 1950 INC — IX 

A37O C9 19650 RET 

A371 0000 1970 CAR DEFW 00 

A373 00 1980 CAR2 DEFB O 

A374 00 1990 MODO DEFB O 

A375 2000 TEMP DEFS 40 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


o! 10 MODE 1 LO 
¡ 20 CLS : FOR I=1 TO 10 ! 
ol 30 PRINT "1234567890123456789012345678" La 


40 NEXT 


O 50 PEN 2:LOCATE 2,4 : PRINT "..HOLA...” o 
60 CALL 41500,2,2,10,10 | 
O: 70 FOR H=0 TO 200 : NEXT : GOTO 40 650 
! ' 


Comentarios 


La rutina no es fácilmente relocalizable, y los bytes del listado están 
preparados para la dirección 41500. Como para el resto de las rutinas de 
desplazamiento, la velocidad de movimiento depende del tamaño de la 
ventana que se va a desplazar. Aun así, la rutina es bastante rápida, 
incluso para ventanas grandes. 


DSPDERR (DeSPlazamiento a la DERecha Recuperando) 


Esta rutina desplaza un área definida de la pantalla el espacio de un 
carácter hacia la derecha. Todo el material de la pantalla que exceda del 
borde derecho de la ventana reaparece por el borde izquierdo. 


Requisitos de entrada: Como para DESPDER. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 399 bytes. 

10; ** DSPDERR *» 
9D08 20 ORG 40200 
9D0O8 FEO4 30 cP 4 
9DOA CO 40 RET  NZ 3 Si no hay 4 parametros, retorno 
9DOB CD11BC so CALL *BC11 3 Obtiene el modo de pantalla 
9DOE 326E9E 60 LD (MODO), A 
9D11 CDA69D 70 CALL ANCHO 3 Numero de caracteres a mover 
9D14 326B9E 80 LD (CAR),A 
9D17 CD709D 90 CALL MODOC 3 Ajusta este valor para que 
9DIA 326B9E 100 LD (CAR)>,A 5 encaje en el modo actual 
9D1D AF 110 XOR A 
9D1IE 326C9E 120 LD (CAR+1),A 5 Pone a cero el byte alto 
9D21 DD6602 130 LD H, (1X+2) 5 Extrae las coordenadas de 
9D24 DD4E04 140 LD L,(1X+4) 3 la esquina superior derecha 
9D27 CD9A9D 150 CALL ALTURA 3 Numero de lineas? 
9D2A ES 150 OBUCLE PUSH HL 
9D2B -C5 170 PUSH BC 
9D2C  CDOO9E 180 CALL OBCAR 3 Obtiene el caracter 
9D2F CD3B9D 190 CALL MOVIM 3 Realiza el desplazamiento 
9D32 Ci 200 POP BC 
9D33 El 210 POP HL 
9D34 CDB19D 220 CALL PONESF 3 Rellena la columna de la 

230 5 derecha con el caracter 
9D37 2C 240 INC L 3 Desplaza la siguiente linea 
9D38 10FO 250 DJNZ OBUCLE 
9DJIA C9 260 RET 
9D3B 2D 270 MOVIM DEC L 
9D3C 25 280 DEC H 3 Convierte coordenadas fisicas 
9D3D CD1ABC 290 CALL HBCI1A ¿ en posiciones de pantalla 
, 


9D40 3ALEJ9E 300 LD A, (MODO) fjuste en concordancia con el 


9D43 
9D45 
9D47 
9D49 
9D4B 
9D4C 
9D4D 
9D4E 
9D50 
9D5S1 
9D52 
9DS3 


9D5S6 
9D57 
9D58 
9D59 
9D5D 
9DSF 
9D62 
9D63 


9D64 
9D65 
9D66 
9D67 
31CB 
31cc 
31CD 
31CE 
31CF 
31D0 
31D2 
31D3 
31D4 
31D8 
31DA 
31DD 
31DE 
31E0 
31E2 
31E5 
31E6 
31E7 
31EA 
31EB 
31EC 
31ED 
31FO 
31F2 
31F3 
31FS 
31F7 
31F98 
31F9 
31FA 
31FB 
31FC 
31FD 
31FE 
3201 
3204 
3205 
3206 
3207 
3208 
3209 
320€ 
320D 
3210 


ES 


EDB8 


DD7E0O 
DD6604 
94 
3C 
47 
El 
c9 
DD7E02 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
£00 
610 
520 
630 
540 
650 
660 
670 
£80 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
geo 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


ok2 
oK 


5 
BUCLE 


MODOC 


MODi 


MODO 


AJUSTE 


MOVO 


ALTURA 


ANCHO 


cr 2 
JR Z,0k 
cp 1 

JR Z,0kK2 
INC HL 

INC HL 

INC HL 

LD  B,8 
PUSH HL 
POP DE 

DEC HL 
CALL AJUSTE 
PUSH BC 
PUSH DE 
FUSH HL 


LD  BC,(CAR) 


, 
LD  BC,2048 


POP. BC 
DJNZ BUCLE 


LD A, (MODO) 
cr 2 

JR  NZ,MOD1 
LD A, (CAR) 


LD A, (MODO) 
cre 2 

RET Z 

cp 1 

JR  NZ,MOVO 
DEC HL 

RET 

DEC HL 

DEC HL 

DEC HL 

RET 

PUSH HL 


LD A, (DO 
LD H,(IX+4) 
suB H 

INC A 

LD  B,A 

POP HL 


LD A, (1IX+2) 
PUSH HL 
LD  H,(IX+6) 
SUB H 


e. 


.. 


modo actual de pantalla 


8 bytes a desplazar 
Direccion a desplazar, en DE 
Obtiene la direccion desde la 


que se desplaza el byte del 
caracter 


Numero de bytes horizontales 
Movimiento de bloques 
El siguiente esta 2048 mas alla 


Direccion de la proxima linea 
a trasladar 


Proxima direccion de destino 


Hecho para 8 bytes 


Ajuste del numero de bytes 
horizontales a desplazar ( Modo ) 


Modo 13 ancho de 2 bytes 


Modo 03 ancho de 4 bytes 


Ajuste de la direccion 
de cada linea, a la anchura del 
caracter 


Calcula las lineas que 
hay que desplazar 


Numero de caracteres 
a desplazar horizontalmente 


100 


3211 
3212 
3213 
3214 
3215 
3216 
3217 
3219 
321C 
321D 
321E 
3221 
2CD7 
2CD9 
2CDB 
2CDD 
2CEO 
2CE3 
2CE4 
2CE6 
2CE7 
2CE9 
2CEB 
2CEC 
2CED 
2CEE 
2CEF 
2CF2 
2CF5 
2CF8 
2CF9 
2CFA 
2CFB 
2CFD 
2CFF 
2D02 
2D05 
2D08 
2DOB 
2DOE 
2DOF 
2D10 
2D11 
2D12 
2D13 
2D15 
2D17 
2D18 
2D19 
2D1A 
2D1C 
2D1D 
2D1E 
2D21 
2D23 
2D25 
2D27 
2D29 
2D2C 
2D2D 
2D30 
2D32 
2D33 
2D35 
2D37 
2D38 
2D39 
2D3A 
2D3B 
2D3E 


2822 
CD4B2D 
DD7E0O 
77 
DD23 
19 
10F7 
DDE1 
ci 

D1 

El 

co 
CD4B2D 
CD7A2D 
CD7A2D 
2B 

2B 

19 
10F5 
18EA 
CD4B2D 
CD7A2D 
CD7A2D 
CD7A2D 
CD7A2D 
2B 


CD4B2D 
CD722D 


1010 

1020 

1030 

1040 PONESP 
1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 CHPL 
1180 

1190 

1200 

1210 

1220 POK 
1230 

1240 

1250 

1260 

1270 PMOD1 
1280 PiL 
1290 

1300 

1310 

1320 

1330 

1340 

1350 PMODO 
1360 POL 
1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

14650 

1470 OBCAR 
1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 CHGL 
16500 

1610 

1520 

1630 

1640 CAROK 
1650 

16560 

1570 

1580 

1590 GMOD1 
1700 MiL 


INC 
POP 
RET 


CALL 
CALI. 


A 
HL 


HL 
DE 

BC 

IX 

H, (1X+6) 
H 


L 
A, (MODO) 
1 


7 ,PMOD1 
o 
Z,PMODO 
INIC 

A, (1X) 
(HL), A 


A, (MODO) 
1 
7 ,GMOD1 
o 


7, GMODO 
INIC 
A, (HL) 
(10,A 
1X 

HL, DE 
CHGL 
IX 

DE 

BC 

HL 


INIC 
sHL 


Extrae la columna a rellenar 


Fila y columna fisicas 
Selecciona la rutina para 
el modo actual de pantalla 


Rutina para el modo 2 

Extrae de la memoria 

Lo pone en la memoria de pantalla 
Siguiente posicion de la memoria 
Byte de la RAM de video 

Repite esto para 8 bytes 


Rutina para el modo 1 

2 bytes cada caracter 

Almacena 2 bytes en la memoria 
de pantalla 


Direccion del siguiente byte 
de memoria 


Modo 0; 4 bytes 
Extrae los 4 bytes 
que forman el caracter 


Siguiente caracter de la fila 


Chequea el modo actual, 
saltando a la rutina preparada 
para ese modo 


Modo 2; 1 byte 


Restaura los registros 


Rutina para el modo 1 
Guarda 2 bytes de la memoria 


2D41 CD722D 1710 CALL SHL 3 de pantalla por cada caracter 


2D44 2B 1720 DEC HL 3 de la linea 

2D45 2B 1730 DEC HL 

2D46 19 1740 ADD HL,DE 3 Siguiente direccion de 
1750 5 la RAM de video 

2D47 10F5 1760 DJNZ MiL 

2D49 18EA 1770 JR CAROK 

2D4B  CD1ABC 1780 INIC CALL *BC1A Rutina que obtiene la 


2D4E DD21862D 1790 LD IX, TEMP direccion del primer caracter, 
2D52 0608 1800 LD B,8 3 introduciendolo en HL 

2D34 110008 1810 LD DE, 2048 

2D57 C9 1820 RET 

2D58  10E4 1830 DJNZ MiL 


2D3A CD4B2D 1840 GMODO CALL INIC 
2D5D CD722D 1850 MOL CALL SHL 


Rutina para el modo O 
4 bytes de anchura para 


.. e. 


2D60 CD722D 1860 CALL sHL cada caracter 

2D63 CD722D 1870 CALL SHL 

2D66 CD722D 1880 CALL SHL 

2D69 2B 1890 DEC HL 

2D6A 2B 1900 DEC HL 

2D6B 2B 1910 DEC HL 

2D6C 2B 1920 DEC HL 

2D6D 19 1930 ADD HL,DE 

2D6E  10ED 1940 DJNZ MOL 

2D70 18C3 1950 JR CAROK 

2D72 7E 1960 SHL LD A, (HL) 3 Transfiere un byte desde 
2D73 DD7700 1970 LD (IX),A 3 la RAM de pantalla, a un almacen 
2076 23 1980 INC HL 3 de la memoria 

2D77 DD23 1990 INC IX 

2D79 C9 2000 RET 

2D7A DD7E0O 2010 PONHL LD A, (IX> 35 Transfiere un byte desde 
2D7D 77 2020 LD (HL),A 3 el almacen de memoria, a la 
2D7E 23 2030 INC HL 3 memoria RAM de pantalla 
2D7F DD23 2040 INC — IX 

2D81 C9 2050 RET 

2D82 0000 2060 CAR DEFW 00 

2D84 00 2070 CARZ2 DEFB O 

2D85 00 2080 MODO DEFB O 

2D86 2090 TEMP DEFS 40 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE i 

20 CLS : FOR I=1 TO 10 

30 PRINT "1234567890123456789012345678" 
40 NEXT 


50 PEN 3:LOCATE 2,4 : PRINT "..HOLA..." 
60 CALL 40200,2,2,10,10 
70 FOR H=0 TO 200 2 NEXT : GOlO 60 


Comentarios 


Esta rutina tampoco es relocalizable. Los bytes del listado están prepa- 
rados para la dirección 42000. 

Tanto DESPIZR como DSPDERR pueden probarse con el progra- 
ma en BASIC que se listó al hablar de IZDES dentro de este mismo 
capítulo. 
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DESPVR (DESPlazamiento Vertical Recuperando) 


Esta rutina desplaza un área de la pantalla hacia arriba o hacia abajo. 
El material desbordado por el borde superior o inferior de la ventana 
reaparece por el borde opuesto. La rutina funciona en cualquier modo de 


pantalla. 


Bloque de parámetros de DESPVR 


Requisitos de entrada: 


Condiciones de salida: 


Longitud: 

10 5 
A028 20 
A028 FEOS 30 
A02A CO 40 
AO2B CD99BB 50 


Desde BASIC, CALL  dirección,x1,y1,x2,y2,dir, 
donde: 

x1 = borde izquierdo del área 

yl = borde superior del área 

x2 = borde derecho del área 

y2 = borde inferior del área 

dir = 0 desplaza hacia abajo 

dir = 1 desplaza hacia arriba 

Las coordenadas van desde 1,1, siendo ésta el 
cuadro del carácter situado en la esquina supe- 
rior izquierda de la pantalla. Si la rutina es lla- 
mada desde código máquina IX apunta a un 
bloque de parámetros adecuado y A debe conte- 
ner el valor 5. 


Todos los registros son alterados. 


914 bytes, incluyendo la memoria temporal o 


buffer. 


** DESPVUR sx 

ORG 41000 

cP s 

RET NZ 3 Retorna si no hay S parametros 
CALL *BB99 


AO2E CD2CBC 60 CALL *$BC2C 


AO31 32B9A3 70 LD (PAFEL),A 3 Guarda el papel para textos 

A034 DD7E0O 80 LD A, (1X) 

A037 FEOO 90 cP o 3 Decide si es hacia arriba o 

A039 2826 100 JR Z,ABAJO 3 hacia abajo 

AO3B CD87A0 110 ARRIBA CALL ANCH 3 Anchura de la ventana 

AOJE DD46508 120 LD H, (1X+8) 

A041 DD4E06 130 LD L, (IX+6) 

A044 3E01 140 LD A,l 

A046 32FBAO 150 LD (DIR),A 

A049  CD97AO0 160 CALL LINEA 3 Almacena la linea superior 

A04C CDDFAO 170 CALL DESPLZ 3 Desplaza 1 hacia arriba 

A04F  CD87AO 180 CALL ANCH 

A052 DD6608 190 LD H, (1X+8) 

A0S5 DD6E02 200 LD L, (1X+2) 

A0OS58  3E0O 210 LD A,O 

AOSA 32FBAO 220 LD (DIR),A 

AOS5D CD97A0 230 CALL LINEA 3 Escribe la linea en la parte 

A060 C9 240 RET 5 inferior 

A061 CD87A0 250 ABAJO CALL ANCH 

A064 DD4608 260 LD H, (1X+8) 

A067 DD4E02 270 LD L, (1X+2) 

A06A 3E01 280 LD A,l 

A06C 32FBAO 290 LD (DIR),A 

A06F CD97AO 300 CALL LINEA 3 Almacena la linea inferior 

A072 CDDFAO 310 CALL DESPLZ 3 Desplaza 1 hacia abajo 

A073 CD87AO 320 CALL ANCH 

A078 DD6608 330 LD H, (1X+8) 

AO7B_ DD6E06 340 LD L, (IX+6) 

AO7E 3E00 350 LD Aso 3 Se prepara para escribir 

A080 32FBAO 360 LD (DIR),A 

A083 CD97AO0 370 CALL LINEA 3 Escribe la linea almacenada 

A08B6 C9 380 RET 5 en la linea superior 
390 ; de la ventana 

2AEE ES 400 ANCH PUSH HL 

2AEF DD7E04 410 LD A, (1X+4) 

2AF2 DD6608 420 LD H, (1X+8) 

2AFS 94 430 SUB H 

20F6 47 440 LD B,A 

2AF7 3C 450 INC A 

2AF8B 32632B 460 LD (ANCHO), A 

2AFB 04 470 INC B 3 Ancho en el registro B 

2AFC El 480 POP. HL 

2AFD C9 490 RET 

2AFE C5 500 LINEA PUSH BC 

2AFF —D5 s10 PUSH DE 

2B00 ES 520 PUSH HL 

2B01  DDES 530 PUSH IX 3 Freserva los registros 

2B03 DD2164542B 540 LD IX, BUFFER 

2B07 0608 550 LD B,8 

2B09 C5 560 PUSH BC 

2BO0OA 25 570 DEC H 

2BOB 2D 580 DEC L 

2BO0OC  CD1ABC 590 CALL RBCIA 3 Conoce la direccion del caracter 

2BOF ED43602B 600 LD (NUEVODA),BC3 Ancho del caracter en NUEVOA 

2B13 110008 610 LD DE, 2048 3 Actualiza DE 

2B16 Ci 620 POP BC 3 Recupera el numero de lineas, (8) 

2B17 C5 630 OBUCLE PUSH BC 3 Lo guarda otra vez 

2B18 3A632B 640 LD A, (ANCHO) 5 Conoce el numero de caracteres 

2B1B 47 650 LD B,A 

2B1C ES 660 PUSH HL 5 Guarda la direccion de comienzo 
670 ; de la linea 

2B1D C5 680 BUCLE1 PUSH BC 3 Guarda el numero de caracteres 

2B1E ED4B602B 690 LD BC, (NUEVDA)5 Conoce la anchura en bytes 
700 3 del caracter 

2B22 3A622B 710 BUCLE LD A, (DIR) 3 Extrae el byte de la memoria 
720 5 de pantalla, 

2B25 FEOO 730 cP lo] 3 y lo introduce en el almacen 
740 5; temporal de memoria 

2B27 2817 750 JR Z.PONESP 3 dependiendo del valor de DIR 
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2B29 7E 760 LD A, (HL) 


2B2A DD7700 770 LD (D0,A 

2B2D DD23 780 CAROK INC — IX 3 Siguiente byte... 

2B2F 23 790 INC HL 3 Escribe una linea del caracter 

2B30 10FO 800 DJNZ BUCLE 

2B32 C1 e10 POP BC 

2B33 10E8 820 DJNZ BUCLE1 3 Realizara todo esto para 
830 ; todos los caracteres 
840 ; de la ventana 

2B35 El eso POP HL 

2B36 19 850 ADD HL,DE 3 Obtiene la direccion en RAM de 
870 ; pantalla, de la linea 

2B37 Ci 88go POP BC 

2B38 10DD 890 DJNZ OBUCLE 3 Repite para todo el caracter 

2B3A DDE1 900 POP IX 

2B3C El 910 POP HL 

2B3D Di 920 POP DE 

2B3E C1 930 POP. BC 3 Restaura los registros 

2B3F C9 940 RET 

2B40 DD7E0O 950 PONESP LD A, (1X) 

2B43 77 960 LD (HL),A 

2B44 18E7 970 JR CAROK 

2B46 DD6608 980 DESPLZ LD H, (1X+8) 3 Desplaza un area 

2B49 DD6E06 990 LD L, (1X+6) 

2B4C  DD5604 1000 LD D, (IX+4) 

2B4F DD5EO2 1010 LD E, (1X+2) 

2B52 DD4400 1020 LD B, (IX) 

2B55 3A202E 1030 LD A, (PAPEL) 

2B58 25 1040 DEC H 

2B59 2 1050 DEC L 

2BSA 15 1060 DEC D 

2B5B 1D 1070 DEC E 

2B5C  CDS5OBC 1080 CALL *BCSO 

2B5F C9 1090 RET 

2B60 0000 1100 NUEVOA DEFW 00 

2B62 00 1110 DIR DEFB O 

2B63 00 1120 ANCHO DEFB O 

2B64 1130 BUFFER DEFS 700 

2E20 00 1140 PAPEL DEFB O 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


10 MODE 1 

20 direccion=40200 

30 CLS : FOR I=1 TO 10 

40 PRINT "1234567890123456789012343578" 
50 NEXT 


60 PEN 3:LOCATE 2,3 : PRINT "*x* HOLA *" 
70 G$=INKEY$ : IF G$="" [HEN 70 

80 IF ASC(G$)=240 THEN dir=1 

90 IF ASC(G$)=241 THEN dir=0 

100. CALL 41000,2,2,19,6,dir 

110 GOTO 70 


Comentarios 


La rutina es no relocalizable, debido al empleo extenso de subrutinas. 
Los bytes proporcionados son para la dirección 41000. 


Las tres últimas rutinas utilizan temporalmente un área de la memoria. 
Esto se utiliza de la siguiente forma. Para la DESPIZR y la DSPDERR 
cada línea de pantalla de la ventana desplazada se mueve hacia el lado 
requerido. Sin embargo, antes de desplazarse, el área que se va a perder 
por el desplazamiento es copiada temporalmente en el área de memoria 
antes indicado. Esta sólo contendrá la cantidad de memoria necesaria para 
definir un cuadro de carácter, por lo que el máximo será de 32 bytes para 
un cuadro de carácter en modo 0. Cuando finaliza el desplazamiento, 
copiamos el contenido del área de memoria temporal y se escribe en la 
línea del lado opuesto de la ventana que acaba de ser desplazada. Como 
sólo estamos copiando el contenido de la memoria de pantalla, la informa- 
ción en cuanto al color y los posibles gráficos se mantiene, así como los 
datos del carácter. En la DESPVR, debemos retener toda una fila de 
pantalla. Esto nos dará un máximo de (80*8) bytes, teniendo en cuenta 
que alguien querrá desplazar la pantalla en su totalidad. Esto implica 80 
bytes de ancho y son necesarios 8 bytes para cada fila de pantalla en 
términos de líneas de pantalla. Cada vez que haces un desplazamiento, la 
línea de pantalla que de otro modo se perdería, se copia en esta área de 
memoria temporal o buffer. Así, después de un desplazamiento, el conteni- 
do del buffer se copia en las áreas de memoria de pantalla apropiadas, 
para restablecer la imagen en el otro extremo de la ventana. 
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Más rutinas 
de pantalla 


Este capítulo presenta un variado surtido de rutinas para la manipula- 
ción de la pantalla. Comenzaremos viendo unos cuantos métodos para 
limpiar la pantalla. 


Borrando la pantalla 


La forma más fácil de hacerlo desde código máquina es llamar a la 
rutina situada en la dirección £BC14. Esta colocará toda la pantalla con 
la tinta 0; justamente lo que hace CLS. Sin embargo, el cursor de texto no 
retornará a la esquina superior izquierda de la pantalla. Alternativamente, 
el equivalente más directo a CLS es: 


LD  A,12 
CALL HBBSA 


que limpiará la ventana de texto y localizará el cursor en la esquina 
superior izquierda de la ventana. La orden CLG, por supuesto, también 
sirve para limpiar la pantalla, pero la llamada a £bBC14 realiza este 
trabajo igualmente bien. 

Sin embargo, todos estos métodos de limpieza de la pantalla son 
demasiado repentinos y en alguna ocasión es útil tener una rutina que 
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desvanezca gradualmente la imagen de la pantalla, en vez de borrarla 
súbitamente. Por ejemplo, podrías usar una rutina que difumine poco a 
poco la página de presentación de un programa que hayas escrito, mante- 
niendo tu nombre expuesto el mayor tiempo posible. Para ello, aquí tienes 
un par de rutinas que te ofrecen esta posibilidad. 


DCLS 


Esta rutina desvanece la pantalla hasta que toda ella esté con la tin- 
ta 0. Es relocalizable. 


Requisitos de entrada: Desde BASIC o código máquina; CALL direc- 
ción. No es necesario ningún parámetro. 


Condiciones de salida: Los registros AF, HL y DE son alterados. 


Longitud: 18 bytes. 
10 5 ** DCLS *.e 
9D08 20 ORG 40200 
9D08 1EFE 30 LD E, 254 3 Mascara inicial 
9DOA 2100C0 40 BUCLEO LD HL,*C0005 Comienzo de la memoria de pantalla 
9DOD 7B 50 BUCLE1 LD A,E 3 Carga la mascara en A 
9DOE A6 60 AND (HL) 3 Enmascara un byte de la RAM 
9DOF 77 70 LD (HL>,A 35 de pantalla, y lo devuelve 
80 ; a su posicion de origen 
9D10 23 90 INC HL 3 Siguiente byte de la RAM 
9D11 7D 100 LD A,L 
9D12 B4 110 OR H 3 Es la direccion 00007? 
9D13 20F8 120 JR NZ,BUCLE15 Si no, vuelve otra vez 
9D13 CB13 130 RL E 3 Rotacion de la mascara 
9D17 38F1 140 JR C,BUCLEO; Repetir mientras ”C” sea 1 
9D19 C9 150 RET 


Pruébalo con: 


10 MODE 1:FOR T=1 TO 25 


20 PRINT STRING$ (39, "x"):NEXT:CALL 40200 


Comentarios 


Esta rutina trabaja desplazando repetidamente un O a través de un 
byte que inicialmente tiene todos sus bits a 1. Este byte sirve como 
máscara. Cada byte de la memoria de pantalla es enmascarado con el byte 
máscara mediante la operación AND y devuelto otra vez a la memoria de 
pantalla. Para dar un poco de velocidad al asunto, el final de la memoria 
de pantalla se busca chequeando el par de registros HL, hasta que conten- 


gan el valor cero. La memoria de pantalla termina en la dirección £ FFFF 
y si incrementamos HL en el instante en que contenga este valor, el nuevo 
contenido será 0000. Observa también la forma en que el programa 
detecta si los 8 bits del byte han sido puestos a cero. Esperamos hasta que 
el flag C contenga un cero, indicando con ello que el O que rotaba por el 
byte ha terminado sus desplazamientos y que ya ha pasado por todos los 
bits del byte. 


CLSDESPLZ (CLS DESPLaZando) 


Esta rutina limpia la pantalla desplazando su contenido 25 líneas hacia 
arriba o hacia abajo. La rutina es relocalizable. 


Requisitos de entrada: Desde el BASIC usaremos la sentencia CALL 
dirección, desp. Donde desp=0 indica que quere- 
mos un desplazamiento hacia abajo. Si lo que 
queremos es un desplazamiento hacia arriba, lo 
indicaremos con desp=1. 

Desde código máquina, IX contiene la dirección 
del byte de memoria que contiene el valor desp, 
que especifica qué tipo de desplazamiento se re- 


quiere. A=1. 
Condiciones de salida: Todos los registros alterados. 
Longitud: 48 bytes, incluyendo el almacenamiento tem- 

poral. 

10 5 e CLSDESPLZ *»e 

9D08 20 ORG 40200 
9D08 DD7E0O 30 LD A, (IX) 
9DOB 32369D 40 LD (DIR),A 
9DOE CD99BB 50 CALL +BB99 
QD11  CD2CBC 60 CALL *BC2C 3 Obtiene la tinta para el papel 
9D14 32379D 70 LD (PAPEL)>,A 3 de textos y lo almacena codificado 
9D17 2600 go LD H,0 3 Borde izquierdo, 
9D19 2E00 90 LD L,0 3 fila superior, 
9D1B 1E18 100 LD E, 24 3 y linea inferior a desplazar 
9D1D CD17BC 110 CALL *BC17 3 Obtiene la ultima columna 
9D20 50 120 LD D,B 
9D21 0619 130 LD B,25 
9D23 C5 140 BUCLE PUSH BC 
9D24 D5 150 PUSH DE 
9D25S ES 160 PUSH HL 
9D26 J3A369D 170 LD A, (DIR) 
9D29 47 190 LD B,A 
9D2A 3A379D 190 LD A, (PAPEL) 
9D2D CDS50BC 200 CALL *BCSO 
9D3O El 210 POP HL 
9D31 Di 220 POP DE 
9D32 C1 230 POP BC 
9D33 10EE 240 DJNZ BUCLE 
9D35 C9 250 RET 
9D36 00 260 DIR DEFB O 
9D37 00 270 PAPEL DEFB O 
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Pruébalo con esto: 


10 FOR T=1 TO 25:PRINT SIRINGS (39,"x*") 


20 NEXT:CALL 40200, 1 


Comentarios 


Los bytes hexadecimales listados son para la dirección 40200. Cuando 
relocalices la rutina, no olvides cambiar la dirección de la memoria tempo- 
ral utilizada. En este programa, sólo se maneja una nueva rutina de la 
ROM, la llamada a £BC17. En el anterior capítulo vimos la rutina de 
desplazamiento. Esta rutina en £¿BC17 nos devuelve la última columna y 
fila de pantalla disponibles en el modo actual de pantalla. Es denominada 
SCR CHAR LIMITS por AMSOFT, y a su regreso el registro B y el regis- 
tro C contienen, respectivamente, la última columna de pantalla y la última 
fila disponible de la pantalla. Utilizamos esta información para darle a la ruti- 
na el número correcto de columnas a desplazar para cada modo de pantalla. 


En la programación de rutinas de juegos, es a menudo útil detectar si 
el espacio de un carácter está o no ocupado por otra cosa antes de colocar 
otro carácter en ese espacio. Las siguientes dos rutinas están diseñadas 
para ayudarte en estas situaciones. 


RCARAC (Reconoce CARACteres) 


Esta rutina devolverá el código ASCII de cualquier carácter identifica- 
ble en una posición específica de la pantalla. 


Requisitos de entrada: Desde BASIC, CALL  dirección,x,y,Gcaract%, 
donde x es la coordenada X, y es la coordenada 
Y, caract%, es la variable que contendrá, al retor- 
nar, el resultado de la llamada. 
Desde el código máquina, el registro IX apuntará 
a un bloque de parámetros de 6 bytes como el de 
la figura. A=3. 


Bloque de parámetros 
para RCARAC 


Condiciones de salida: En BASIC, caract% contendrá el código ASCII 
si el carácter fue reconocido. En caso de que el 
carácter no fuera identificado, la variable conten- 
drá el valor 256. 

Desde código máquina, la posición (IX) conten- 
drá el código ASCII de un carácter “legal” y 
(IX+1)=0. Para un carácter no reconocido por 
el sistema, entonces (IX+0)=0 y (IX+1)=1. Al- 
ternativamente, C=1 (flag de acarreo activado) y 
A=código ASCII de un carácter legal; en caso 
contrario, A=0 y el flag de acarreo “C” puesto 


a cero. 
Longitud: 31 bytes. 
9008 10 ORG 40200 
9D08 FEO3 20 cP 3 
9DOA CO 30 RET  NZ 3 Retorno para un numero 
40 3 erroneo de parametros 
9DOB DD6604 50 LD H, (1X+4) 
9DOE DD6E02 60 LD L, (1X+2) 
9D11 CD7S5BB 70 CALL 4BB73 3 Posiciona el cursor 
9D14 CD6G0BB go CALL 4BBG60 3 Extrae el caracter 
9D17 DD6E00 90 LD L, (IX+0) 
9DIA DD6601 100 LD H, (1IX+1) 
9D1D 3005 110 JR NC,NOCAR 5 Si el caracter no es conocido... 
9D1F 77 120 LD (HL) ,A 3 Carga el codigo ASCII en 
9D20 23 130 INC HL 5 la variable 
9D21 3600 140 LD (HL) ,0 
9D23 C9 150 RET 
9D24 3600 160 NOCAR LD (HL)>),0O 3 Si el caracter no es conocido, 
9D26 23 170 INC HL j viene aqui 
9D27 3601 180 LD (HL>,1 
9D29 C9 190 RET 


Pruébalo con esto: 


10 LOCATE 5,10:PRINT "UN-CARACTER" 
20 F/=0: CALL 40200,10,10,8F% 


30 PRINT FZ 


Comentarios 


La rutina debe llamarse en compañía de tres parámetros; de otro 
modo, se provocará un regreso inmediato al BASIC. Recuerda que, utili- 
zando variables con el prefijo (o, la variable tiene que haber sido declarada 
previamente. La causa más típica de obtener 256 al retorno es que una 
orden de gráficos como PLOT o DRAW haya dejado un punto o una 
línea en ese espacio de carácter en particular, alterando con ello la imagen. 
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Una segunda causa para que la rutina devuelva el 256 es que los colores 
del papel y la pluma hayan sido cambiados después de que la imagen 
fuera impresa en pantalla. La forma de evitar esto último es chequear la 
posición del carácter con todas las combinaciones de papel y pluma. Sin 
embargo, como lo que normalmente buscamos es la presencia o ausencia 
de algo, la rutina sigue siendo muy útil. 

Una rutina similar es denominada CPUNTO, pero ésta nos devuelve 
el color de la tinta encontrado en un punto determinado de la pantalla. 


CPUNTO (Color del PUNTO) 


Devuelve al usuario el color de la tinta de un punto (pixel) específico. 
La rutina es relocalizable. 


Requisitos de entrada: Desde BASIC, usaremos CALL  dirección,x, 
y, SJY,, donde x,y son las coordenadas del punto 
y J% es la variable que contendrá el valor de la 
tinta al regreso de la rutina. Si partimos desde el 
código máquina, IX apuntará a un bloque de 
parámetros como el de la figura. El registro 


Bloque de parámetros de CPUNTO 


Condiciones de salida: Todos los registros son alterados. Si se transfiere un 
número erróneo de parámetros, se regresa inme- 
diatamente al BASIC o al programa en código 
máquina que hizo la llamada. 


Longitud: 29 bytes. 
10 3 sw. CPUNTO es 
9D08 20 ORG 40200 
9D08 FEO3 30 cP 3 
9DOA CO 40 RET NZ 3 Si no hay 3 parametros, retorno 
9DOB DDé6E02 50 LD L, (1X+2) 


9DOE  DD4603 60 LD H, (1X+3) 


9D11  DDS5E04 70 LD E, (1X+4) 

9D14 DD5605 80 LD D, (1X+5) 

9D17 CDFOBB 90 CALL *BBFO 3 Obtiene la tinta de HL y DE 

9DIA DD£E0O 100 LD L, (1X+0) 

9D1D DDé401 110 LD H, (1IX+1) 

9D20 77 120 LD (HL)>,A 3 Almacena el valor de la tinta 
130 3 en la variable 

9D21 23 140 INC HL 

9D22 3600 150 LD (HL),0 

9D24 C9 160 RET 


Pruébalo con esto: 


10 F=0 
20 CALL 40200,80,390, ,eF7 


30 PRINT FZ 


Comentarios 


Tanto en esta rutina como en RCARAC, si lo único que pretendes es 
usar las rutinas desde código máquina, entonces será más fácil llamar 
directamente a la rutina de la ROM sin poner el resultado en la variable 
apropiada. Las dos rutinas de ROM utilizadas son las siguientes: 


S¿BB60: Esta fue discutida en el capítulo 4. 


S€:¿BBFO: Esta rutina es accesible cuando DE contiene la coordenada X 
del punto en cuestión y HL contiene la coordenada Y. A la salida de la 
rutina, el registro A contendrá el color de la tinta. 


La siguiente rutina es otra de las “decorativas”. Invierte la pantalla 
complementando todos los bits de la memoria de pantalla que estén a 1, 
poniéndolos a 0, y viceversa. 


PINVIERT (INVIERTe Pantalla) 


Cambia la pantalla complementando cada byte de la memoria de 
pantalla. Sirve para los tres modos. La rutina es relocalizable. 


Requisitos de entrada: CALL dirección. 
Condiciones de salida: Son alterados los registros HL y AF. 
Longitud: 12 bytes. 
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10 5 %* PINVERT +. 


9D08 20 ORG 40200 

9D08 2100C0 30 LD HL, *$CO000 

9DOB 7E 40 BUCLE LD A, (HL) 3 Extrae un byte de la pantalla 
9DOC 2F so CPL 3 Complementa el byte 

9DOD 77 60 LD (HL),A 3 Vuelve a almacenarlo en pantalla 
9DOE 23 70 INC HL 3 Siguiente byte 

9DOF 7D go LD A,L 

9D10O B4 90 OR H 

9D11 20F8 100 JR NZ,BUCLE 5 Repite si HL no es cero 

9D13 C9 110 RET 


Pruébalo con esto: 


10 FOR T=1 TO 25:PRINT STRING$ (39, "x*") 


20 NEXT:CALL 40200 


Comentarios 


Cada byte de la memoria de pantalla desde £¿C000 hasta 8 FFFF es 
complementado. Esto significa simplemente que cada O es convertido en 
un 1 y que cada 1 es reemplazado por un 0. Por ejemplo, el byte 10101010 
al ser complementado se convierte en 01010101. El cambio de color que se 
produce puede ser realmente interesante, en especial en el modo 0 con 
varios colores a la vez en pantalla. Si hacemos una segunda llamada a la 
rutina, la pantalla volverá a su estado original. 


La siguiente rutina es sencilla, pero con un fuerte uso de la memoria. 
Puede ser extremadamente útil cuando necesitemos rápidas alteraciones de 
la imagen que se presenta en la pantalla. Vamos a utilizar 16K de 
memoria, comenzando desde la posición 26000 en decimal, como una 
“pantalla” temporal que puede contener una copia de la propia pantalla. 
Podemos dibujar una imagen en la pantalla, copiarla en esta segunda 
pantalla, y después dibujar una segunda imagen. Cuando deseemos visuali- 
zar en pantalla el contenido de la segunda pantalla, transferiremos simple- 
mente el contenido de la RAM desde la posición 26000 a la memoria de 
pantalla. 


SEGUNDAP (SEGUNDA Pantalla) 


Esta rutina permite el uso de un área de la memoria como una 
segunda “pantalla”. Esta zona de memoria puede contener una copia de la 
imagen actual de la pantalla. La pantalla así salvada en la RAM puede ser 
restaurada posteriormente de una forma casi instantánea. 


Requisitos de entrada: Desde el BASIC, usaremos CALL dirección, n; 


donde n especifica el sentido de la transferencia 
de datos: n=0 significa que la transferencia se hace 
desde la pantalla a la RAM y n=1 que la trans- 
ferencia se hace desde la RAM a la memoria de 
pantalla. Partiendo del código máquina, IX 
apunta hacia un byte de memoria que contendrá 
el valor de n. El registro A=1. 


Condiciones de salida: Todos los registros alterados. 


Longitud: 


6148 
6148 
61AA 


61AB 
61AE 
61BO 
61B2 
61B5 
61B8 
61BB 
61BD 
61BE 
61C1 
6104 
6107 
61C9 


FEO1 
co 


DD7E00 
FEOO 
280C 
1100C0 
219065 


2100C0 
010040 
EDBO 
co 


21 bytes, más el área de memoria comprendida 
entre 26000 y 42384, ambos inclusive. 


10 5 + SEGUNDAP ++ 

20 ORG 25000 

30 cP 1 

40 RET  NZ j Retorna ante un numero erroneo 
50 3 de parametros 

60 LD A, (1X) 

70 cP o 

80 JR Z, ABAJO Si es 0, de pantalla a memoria 


e. o. 


90 LD DE, *CO0O Transfiere de memoria a pantalla 
100 LD HL, 26000 

110 LD BC, 4000 

120 LDIR 

130 RET 

140 ABAJO LD DE, 26000 

150 LD HL, *CO0O 

160 LD BC, 4000 

170 LDIR 

180 RET 


Pruébalo con esto: 


CALL 25000,0 
CLS: INPUT"Pulsa ENTER para restaurar 


la pantalla",a$ 
CALt 25000, 1 
GOTO 40:REM Se evitan desplazamientos 


Comentarios 


Advertirás que el área de memoria utilizada para el almacenamiento 
temporal puede tener una localización un tanto caprichosa. La razón de 
esto es sencilla. El área de la segunda pantalla necesita tener una longitud 
de 16384 bytes, y si usáramos posiciones de memoria más altas, terminaría- 
mos escribiendo sobre el bloque de rutinas de salto del firmware. El 
resultado de esto, como podrás suponer, es un desastroso accidente del 
sistema. Además nuestra rutina en código máquina deberá estar o bien 
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e 


entre el final de nuestra “pantalla” y del bloque de saltos del firmware, o 
bien en una dirección inferior a 26000. A pesar de todas estas contrarieda- 
des, la rutina es relocalizable. 


Otros puntos a observar son los siguientes: 


1. Sólo se obtendrán resultados coherentes si el modo de pantalla 
presente en el momento de restaurar la segunda pantalla coincide con 
el modo que se estaba usando en el momento de almacenar la 
pantalla. 


2. Una imagen debe ser guardada antes de que ocurra ningún desplaza- 
miento. Cuando queramos “cargar” la segunda pantalla desde la 
RAM deberá hacerse inmediatamente después de un cambio de 
modo. Las operaciones de desplazamiento alteran la forma en que la 
memoria de pantalla se corresponde con posiciones particulares de 
pantalla. 


SEGUNDAP tiene el inconveniente de destruir la imagen que había en 
pantalla, al realizar la transferencia desde nuestra segunda pantalla a la 
pantalla principal. La siguiente rutina evita este problema mediante un 
intercambio de los contenidos de las dos pantallas. 


PCANJE (CANJE de Pantallas) 


Esta rutina canjea las dos “pantallas” poniendo así en la memoria la 
imagen de la pantalla, empezando desde la posición 26000 y presentando 
por pantalla el contenido de la RAM desde la posición 26000. La rutina es 
relocalizable dentro de los límites impuestos por las notas de SEGUN- 
DAP. 


Requisitos de entrada: CALL dirección. 
Condiciones de salida: Todos los registros son alterados. 


Longitud: 18 bytes, más la memoria comprendida entre las 
posiciones 26000 y 42384, ambas inclusive. 


10 3 +4 PCANJE e. 
6148 20 ORG 25000 
61458 119065 30 LD DE,26000 3 Inicializacion de registros 
61AB 2100C0 40 LD HL, *CO0O 
61AE  —4E 50 BUCLE LD C, (HL) 3 Toma un byte de la pantalla 
61AF 14 60 LD A, (DE) 3 Toma otro del almacen temporal 
61B0 77 70 LD (HL>,A 3 Siguiente intercambio de bytes 
61B1 79 80 LD A,C 
61B2 12 90 LD (DE>,A 
6183 23 100 INC HL 5 Apunta hacia los siguientes bytes 
61B4 13 110 INC DE 
61BS 7D 120 LD A,L 3 HL es cero cuando toda la 
61B6 B4 130 OR H 5 pantalla sea barrida 
61B7 20F5 140 JR NZ, BUCLE 
61B9 C9 150 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


CALL 25000 
CLS : DRAW 100,100 : DRAW 100,200 : 
DRAW 0,300 


FOR I=0 TO 200: NEXT 
O CALL 25000 
GOTO 30 


Comentarios 


El intercambio de las dos pantallas ofrece un tipo de desvanecimiento 
como el que se obtiene con un proyector de diapositivas. El desvaneci- 
miento puede hacerse más lento si insertamos un bucle de retardo en el 
código máquina antes listado. El siguiente programa BASIC demuestra 
también el funcionamiento de la rutina en código máquina, suponiendo 
que ésta ya se encuentra en la dirección 25000. 


CLSs 

FOR k=1 TO 20 

LOCATE 15,K:PRINT “! HOLA AQUI !" 
NEXT 

CALL 25000 


CLS : DRAW 100,100 : DRAW 100,200 : 
DRAW 0,300 

FOR 1=0 TO 300:NEXT:REM retardo 
cALL 25000 

GOTO 70 


Sería interesante sacar un pleno rendimiento de esta rutina en tiempo 
real. Probablemente alguna vez hayas visto impresionantes dibujos en la 
pantalla de un ordenador. Lo normal es programar estos dibujos punto a 
punto, bien mediante funciones o bien asignando a cada punto de la 
pantalla un estado determinado. El tiempo de procesamiento de estos 
dibujos puede llegar a ser extremadamente largo, y su programa ocupa 
fácilmente la totalidad de la memoria. Existe un segundo método para 
dibujos artísticos o de precisión, que está muy alejado de todo lo referente 
a números y complicadas ecuaciones. En este caso, el usuario puede ver el 
dibujo según lo va imaginando y componiendo. Con este método, una 
especie de pluma puede ser desplazada a voluntad por la pantalla marcan- 
do las líneas o puntos que se deseen. Pueden ser incluidos comentarios o 
cadenas de caracteres en cualquier posición de la pantalla. Una vez finali- 
zado el trabajo, se puede recurrir a una rutina como PCANJE para 
almacenar en memoria el contenido de la pantalla. Seguidamente se puede 
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guardar el contenido del área de memoria de la segunda pantalla, en la 
unidad de almacenamiento (disco o cassette). Este es el tipo de dibujos que 
se pueden realizar con la siguiente rutina. 


ACCION 


Permite al usuario rellenar la pantalla a voluntad, tanto con texto 
como con gráficos. Se dispone de todos los colores que permita cada 
modo de pantalla. La velocidad de desplazamiento del cursor de gráficos 
puede ser determinada en el momento de acceder a la rutina. Es relocaliza- 
ble. La rutina está preparada para trabajar en el modo 1, pero es fácilmen- 
te alterable para utilizarla en los demás modos. 


Requisitos de entrada: Desde el BASIC, llamaremos a la rutina median- 
te CALL40000, vel; donde vel es la velocidad que 
se quiere dar al cursor de gráficos. El valor de 
vel se refiere al número de barridos de pantalla 
que se efectuarán entre cada desplazamiento del 
cursor. Como sabes, el ordenador envía informa- 
ción a la pantalla 50 veces por segundo. Así, un 
valor de vel=50 hará que transcurra un segun- 
do completo entre cada movimiento del cursor. 
Partiendo desde código máquina, IX apunta a 
un bloque de la memoria en donde está almace- 
nado un valor que representa al retardo. A=1. 


Condiciones de salida: El color será el último utilizado en la rutina. 
Todos los registros son alterados. 


Longitud: 418 bytes. 
10 5 ** ACCION ** 
9C40 20 ORG 40000 
9C40 FEO1 30 cP 1 
9cC42 Co 40 RET  NZ 
9C43 DD7E0O 50 LD A, (IX) 
9C46 32E29D 60 LD (RET),A 
9C49 CDCCBB 70 CALL *BBCC 3 Pbtiene las coordenadas 
80 ; del origen 
9C4C  EDS3DD9D 90 LD (TEMPX),DE 3 de graficos, y las almacena 
9C50 22DF9D 100 LD (TEMPY)>,HL 5 temporalmente 
9053 110000 110 LD DE,O 
9056 218FO1 120 LD HL, 399 
9059 CDC9BB 130 CALL *BBC9 3 Impone el nuevo origen de coord. 
9C5C 3E01 140 LD A, 1 
9C5SE CDDEBB 150 CALL $*BBDE 5 Fija la tinta de graficos 
9C61 3E17 1650 LD A,23 3 Modo de graficos ”XOR” 
9C63 CDSABB 170 CALL RBBSA 
9C66 3E01 180 LD A, 1 
9C68 CD5ABB 190 CALL *+BBSA 
9C6B 110000 200 LD DE, O 
9C6E 210000 210 : LD HL,O 
9C71 ES 220 PUSH HL 


9072 
9073 


9C76 
9079 
GC7A 
9C7D 
9C7F 
9cei 

9C84 
9C86 
9c8e 
9C8B 
9C8D 
9ceF 
9092 
9C95 
9097 
9CIA 
9C9D 
QC9F 
9CA2 
CAS 
9CA7 
GCAA 
CAD 
9CAF 
9CB2 
9CB5 
9CB7 
GCBA 
9CBD 
9cco 
$cci 
9CC3 
9CC6 
9cTcCo 
9cce 
9CCD 
QccrF 
9CD1 
9CD4 
9CD7 
9CDA 
9CDB 
9CDD 
9CEO 
9CE1 

9CE3 
9CE6 
9CE9 
9CEA 
GCEB 
9CEC 
9CED 
9CEE 
9CEF 
9cCF2 
9CF3 
9CF4 
9CFS 
9CF6 
9CF7 
9CF8 
9CF9 
QCFA 
CFB 
9CcFC 
9CFD 
9CFE 


DS 
CDEABB 


3AE29D 
47 
CD19BD 
10FB 
3E00 
CD1EBB 
203B 
3E02 
CD1EBB 
2079 
3E01 
CD1EBB 
C24B9D 
3E08 
CD1EBB 
C2669D 
3E3A 
CD1EBB 
C2A99D 
3E22 
CD1EBB 
C2CD9D 
3E3E 
CD1EBB 
Cc2819D 
3E35 
CD1EBB 
C29C9D 
CA769C 
co 
3E01 
CD1EBB 
CcAcF9c 
010200 
c5 
1812 
3E08 
CD1EBB 
CADD9C 
O1FEFF 
c5 
1804 
010000 
c5 
3E2F 
CD1ERB 
Cc2F29C 
c1 
Di 
El 
ES 
D5 
c5 
CDEABB 
c1 
D1 
El 
23 
23 
ES 
62 
6B 
09 
54 
5D 
El 
ES 


5 
TECLAS 


RETARD 


ARRIBA 


POF: 
PUSH 


DE 
HBBEA 


A, (RET) 
B,A 

HBD19 
RETARD 
A,O 

*BB1E 

NZ, ARRIBA 
A,2 

HBB1E 

NZ, ABAJO 
A, 1 


NZ, ESCRBE 
A,34 
RBB1E 

NZ, ORIGEN 
A, 62 
*BBIE 

NZ , CCOLOR 
A,53 
ABB1E 

NZ, FINAL 
Z,TECLAS 


A, 1 
*BB1E 
z,U1 
BC,2 


e. e... 


we. 


e. e. e. 


e. 


.. 


. 


e 


Guarda la posicion del punto 
Imprime el punto-guia 
en el origen 


Comienza a explorar el teclado 
Tecla 053 desplazamiento 
hacia arriba 


Tecla 2, abajo 

Tecla 1, derecha 

Tecla 8, izquierda 

Tecla 58 (E), escribir 

Tecla 34, (0), origen 

Tecla 62, (C), cambio de color 


Tecla (F)>, final 


Comprueba si es una diagonal 
a la derecha 


Comprueba si es una diagonal 
a la izquierda 


El punto no se borra si la 
barra esta pulsada 


Recupera las coordenadas 
del punto-guia 


Lo elimina de la pantalla 
Recupera las coordenadas 
Actualiza la coordenada Y 


guardandola despues 


Actualiza y guarda la 
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9CFF 
9DO0O 
9DO3 
9DO6 
9D08 
9DOB 
9DOE 
9D11 

9D12 
9D14 
9D16 
9D19 
9D1cC 
9D1F 
9D20 
9D22 
9D25 
9D26 
9D28 
9D2B 
9D2E 
9D2F 
9D3O 
9D31 

9D32 
9D33 
9D34 
9D37 
9D38 
9D39 
9DIA 
9D3B 
9D3C 
9D3D 
9D3JE 
9D3F 
9D40 
9D41 
9D42 
9D43 
9D44 
9D45 
9D48 
9D4B 
9D4D 
9D50 
9D53 
9D54 
9D55 
9D56 


9D57 
9DSA 
9D5B 
9D5C 
9D5D 
9DSE 
9DSF 
9D560 
9D63 
9D66 
9D68 
9D6B 
9D6E 
9DEF 
9D70 
9D71 
9D72 
9D75 
9D76 


DS 
CDEABB 
C3769C 
3E01 
CD1EBB 
CA149D 
010200 
c5 
1812 
3E08 
CD1EBB 
CA229D 
O1FEFF 
cs 
1804 
010000 
c5 
3E2F 
CD1EBB 
C2379D 
c1 


CDEABB 
C3769C 
3E2F 
CD1EBB 
C25A9D 
Di 

El 

ES 

D5 


CDEABB 
Di 

El 

13 

13 

ES 

D5 
CDEABB 
C3769C 
3E2F 
CD1EBB 
C2739D 
Di 

El 


930 

940 

950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
16510 
1620 


ABAJO 


Al 


Ali 


A2 


As 


DER 


D1 
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PUSH DE 
CALL *$BBEA 
JP TECLAS 
LD  A,1 
CALL *BB1E 
JP O 7,A1 
LD  BC,2 
PUSH BC 

JR  A2 

LD  A,8 
CALL R$BB1E 
JP O 7,A11 
LD BC,-2 
PUSH BC 

JR A2 

LD  BC,O 
PUSH BC 

LD 4,47 
CALL HBB1E 
JP  NZ,A3 
POP BC 
POP DE 
POP HL 
PUSH HL 
PUSH DE 
PUSH BC 
CALL HBBEA 
POP BC 
POP DE 
POP. HL 
DEC HL 
DEC HL 
PUSH HL 

LD  H,D 
LD  L,E 
ADD HL,BC 
LD D,H 
LD  E,L 
POP. HL 
PUSH HL 
PUSH DE 
CALL HBREA 
JP TECLAS 
LD  A,47 
CALL *BRIE 
JP. NZ,D1 
POP DE 
POP. HL 
PUSH HL 
PUSH DE 
CALL éBBEA 
POP DE 
POP. HL 
INC— DE 
INC DE 
PUSH HL 
PUSH DE 
CALL 4BBEA 
JP. TECLAS 
LD  A,47 
CALL WBB1E 
JP. NZ,I1 
POP DE 
POP HL 
PUSH HL 
PUSH DE 
CALL RBBEA 
POP DE 
POP HL 


. 


e. 


e. 


coordenada X 
Imprime el nuevo punto 


Comprueba si es diagonal 


hacia la derecha 


Comprueba si es diagonal 
a la izquierda 


No hay variacion horizontal 


El punto no se borra si 
la barra esta pulsada 


Recupera las coordenadas 
y las guarda de nuevo 


Borra el punto de la pantalla 


Recupera los registros 


Un punto hacia abajo 
Nueva coordenada Y 


Variacion horizontal 


Nueva coordenada X 


Comprueba si se pulsa la barra 


Recupera las coordenadas 


del punto 


Lo elimina 


Ahora incrementa X en dos 


Imprime el nuevo punto 


Si la barra no esta pulsada, 
se borra el punto anterior 


9D77 1B 1530 DEC DE Se decrementa la coordenada X 


9D78g 1B 16540 DEC — DE 
9D79 ES 1650 PUSH HL 
9D7A D5 16560 PUSH DE 
9D7B CDEABB 1570 CALL R*BBEA 3 Se imprime el nuevo punto 
9D7E C3769C 1580 JP TECLAS 
9D81 Di 1590 CCOLOR POP DE 
9D82 El 1700 POP HL 3 Recupera la posicion; 
9D83 ES 1710 PUSH HL 
9D84 D5 1720 PUSH DE 3 borra el punto y lo vuelve 
9D85 CDEABB 1730 CALL *BBEA 3 a imprimir en el nuevo color 
9D88 3AE19D 1740 LD A, (COLOR) 
9D8B_— FEOD 1750 cP 13 
9D8D 2803 1760 JR Z, TOPE 3 Si es la tinta 3, vuelve 
9D8F 3C 1770 INC A 5 a comenzar por la O 
1780 5 En otro caso 
9D90 1802 1790 JR OTRA 3 incrementa el numero de tinta 
9D92 3E00 1800 TOPE LD A,O 
9D94 32E19D 1810 OTRA LD (COLOR),A 5 Almacena el nuevo color 
9D97 CDDEBB 1820 CALL 4BBDE 3 Lo impone para graficos 
9D9A 181A 1830 JR PPUNT 
9D9C EDSBDD9D 1840 FINAL LD DE, (TEMPX) 
9DAO 2ADF9D 1850 LD HL, (TEMPY) 
9DA3 CDC9BB 1860 CALL *BBCO 3 Devuelve el origen 
1870 5 de coordenadas 
1880 ; a su posicion inicial 
9DAG6 Di 1890 POF. DE 
9DA7 El 1900 POP. HL 
9DA8 C9 1910 RET-— 5 Regresa al BASIC 
9DA9 CDO9BB 1920 ESCRBE CALL 4BROZ? 3 Limpia el buffer del teclado 
9DAC — 38FB 1930 JR C,ESCRBE 3 Hay mas caracteres? 
9DAE CD18BB 1940 CALL 4BB18 3 Espera un caracter 
9DBi FEOD 1950 cP 13 3 Si se trata de (ENTER), 
9DB3  C2C09D 1960 JP NZ,PUNTO 3 sale de este sub-modo, 
9DR6 Di 1970 PPUNT POP DE 
9DB7 El 1980 POP. HL 
9DB8 ES 1990 PUSH HL 
9DB9 D5 2000 PUSH DE 3 recuperando la nueva 
9DBA CDEABB 2010 CALL *BBEA 3 posicion del punto-guia 
9DBD C3769C 2020 JP TECLAS 
9DCO CDFCBB 2030 PUNTO CALL $*BBFC 5 Escribe el caracter 
9DC3 Di 2040 POP. DE 
9DC4 0610 2050 LD B,16 
9DC6 13 20560 BUCLE INC DE 3 Incrementa X el ancho de 
2070 5; un caracter 
9DC7 10FD 2080 DJNZ BUCLE 
9DC9 D5 2090 PUSH DE 3 Lo guarda 
9DCA C3A99D 2100 JP ESCRBE 
9DCD Di 2110 ORIGEN POP. DE 
9DCE El 2120 POP HL 
9DCF 110000 2130 LD DE, O 
9DD2 210000 2140 LD HL,O 3 Pone a cero las coordenadas 
9DDS ES 2150 PUSH HL 
9DD6 D5 2160 PUSH DE 
9DD7 CDEABB 2170 CALL $BREA 3 e imprime el punto en el origen 
9DDA C3769C 2180 JP TECLAS 
9DDD 0000 2190 TEMPX DEFW O 
9DDF 0000 2200 TEMPY DEFW O 
QDE1 01 2210 COLOR DEFB 1 
9DEZ2 01 2220 RET DEFB 1 
Comentarios 


La rutina no borra la pantalla al empezar; por lo que, si quieres hacer 
un dibujo que ocupe toda la pantalla, tendrás que borrarla antes de hacer 
la llamada. Una vez llamada, el cursor de gráficos aparece en la esquina 
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superior izquierda de la pantalla. Para desplazarlo, utiliza las teclas con 
“flechitas” que se usan normalmente para mover el cursor del texto. 
Cuando quieras trazar una línea, pulsa la barra espaciadora a la vez. El 
color se cambia pulsando la tecla “C”. Pulsando la tecla “O” el cursor 
vuelve al origen de la pantalla. Para insertar texto o caracteres sueltos, 
pulsa la tecla “E” seguida de la cadena que quieras insertar y finaliza la 
operación pulsando ENTER. La rutina terminará cuando pulses la letra 
“F”, En ese momento sería interesante que guardaras el contenido de la 
pantalla primero en una segunda pantalla y después en la unidad de 
almacenamiento. 


Como ya dije antes, la rutina aquí listada funcionará correctamente en 
el modo 1. Para poder utilizarla en los otros modos, tendrás que alterar la 
rutina de la siguiente forma: 

En las líneas 590, 650, 990, 1050, cambiar el 2 por un 4 para el modo 
0, y por un 1 para el modo 2. 

En las líneas 1470, 1480, 1630, 1640, introducir dos incrementos más 
de DE para el modo 0, o suprimir uno de los que hay, para el modo 2. 

Por último, la línea 2050 indica el ancho de los caracteres para cada 
modo; por tanto, para el modo 2 el registro B debe contener 8; en el 
modo 1, B=16, y en el modo 0 B=32, 

Puedes modificar la rutina de forma que admita trabajar con los 
diferentes modos de pantalla. Si quieres interaccionar esta rutina con 
SEGUNDAP, recuerda que debes relocalizarla en una dirección inferior 
a 26000. 


Rutinas de llenado 
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Recordarás cómo en el capítulo 3 listé una rutina que dibuja rectángu- 
los en la pantalla, con la opción de que estuvieran vacíos o rellenados. 
Hay una gran variedad de formas para que un área de la pantalla pueda 
ser rellenada con un color. Más adelante en esta sección veremos una 
rutina de propósito general para rellenar con líneas horizontales, la cual 
puede ser la base para las rutinas de llenado de propósito general. Sin 
embargo, antes de ver esto, puede ser interesante un breve estudio de las 
rutinas de llenado residentes en el sistema, y de las que podemos disponer. 

SCR FILL BOX, localizada en 8¿BC44, rellenará un área de pantalla 
con un color específico. Sin embargo, hay algunas limitaciones en la 
resolución del área rellenada, tales como que los límites se especifican en 
términos de espacios de caracteres. Para acceder a la rutina, Á contiene el 
código del color, que puede ser obtenido del número de tinta normal 
mediante la rutina de la dirección £BC2C. Esto fue detallado en el 
capítulo 4. Los registros HL y DE especifican el área que tiene que 
rellenarse según la siguiente figura. 


SCR FLOOD BOX nos permite una mayor resolución, pero es un 
poco más difícil de utilizar. Se accede mediante una llamada a la dirección 
$£:BC47 y rellenará el área especificada con el color de la tinta cuyo valor 
codificado está en el registro C. Los límites del área a rellenar están dados 
en términos de direcciones de la RAM de pantalla. Normalmente esto 
implica que haya que convertir la posición de un punto o de un carácter 
en una dirección de la memoria de pantalla. Existen rutinas en la ROM 
que nos permiten hacer esto tal y como vimos en el capítulo 4. Sin 
embargo, no entraré en más detalles por ahora. Es suficiente decir que el 
par HL contiene la dirección de la esquina superior izquierda del área que 
ha de rellenarse; el registro D contiene el ancho del área en bytes y el 
registro E contiene la altura del área expresada en líneas de pantalla. 

En todos los modos la pantalla tiene una altura de 200 líneas y un 
ancho de 80 bytes. Este hecho explica la presencia de los 16384 bytes de 
memoria de pantalla (80*200). En el modo 0, cada carácter tiene 4 bytes 
de ancho; en el modo 1, la anchura es de 2 bytes, y en el modo 2, cada 
carácter ocupa sólo el ancho de un byte. Con lo cual, para rellenar toda la 
pantalla con un color determinado, al cual suponemos almacenado en C, 
ejecutaremos una rutina en código máquina como la siguiente: 


LD HL,$CO0O 5 Extremo superior izquierdo de la pantalla. 
LD D,80o 
LD E, 200 
CALL — *BC47 


Sin embargo, todas estas rutinas son apenas inteligentes, ya que tene- 
mos que especificar los bordes del área a rellenar, pudiendo llegar a ser 
muy tedioso este trabajo. La complejidad puede ser elevada si lo que 
tratamos de rellenar son figuras no rectangulares. Necesitamos, pues, de 
una rutina que rellene un contorno dibujado con un determinado color, 
con la tinta del color que especifiquemos. Cada línea de pantalla con una 
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figura puede ser entonces rellenada. Después de examinar el código má- 
quina, veremos cómo puede emplearse para rellenar figuras tales como 
triángulos o círculos. 


LINLLENA (LlNea LLENA) 


Esta rutina llena una simple línea de pantalla entre dos puntos que 
actúan como “borde”. El color de la línea puede ser determinado por el 
usuario. El color de los dos puntos también es especificado por el usuario. 
Si deseas relocalizar la rutina, entonces es necesario alterar la dirección de 
“DERCHA”. Los bytes que se especifican en el listado son para la direc- 
ción 40200. 


Requisitos de entrada: Desde BASIC, usaremos CALL  dirección,x,y, 
borde, color; donde x,y es la posición desde don- 
de comienza el rellenado; borde es el color de la 
tinta que marca el límite del rellenado; color es 
la tinta con la que queremos que se trace la 
línea. 

Partiendo desde código máquina, IX apunta ha- 
cia un bloque de parámetros como el de la figu- 
ra, registro A=4, 


Condiciones de salida: Si el número de parámetros es incorrecto, se 
producirá un retorno inmediato al BASIC, To- 
dos los registros son alterados. 


Longitud: 91 bytes. 

10 5 e LINLLENA +. 
9D08 20 ORG 40200 
9DO08 FEO04 30 cP 4 
9DOA CO 40 RET NZ 
9DOB DD6E04 50 LD L, (1X+4) 
9DOE DD6605 60 LD H, (1X+5) 
9D11  DD5SEO0S6 70 LD E, (1IX+6) 


9D14 DD5607 go LD D, (1X+7) 


9D17 ES 90 PUSH HL 
9D18 D5 100 PUSH DE 
9D19 ES 110 BUCLE PUSH HL 5 Comienza a rastrear 
120 ; hacia la derecha 
GDIA D5 130 PUSH DE 
9D1B CDFOBB 140 CALL *BBFO 3 Conoce la tinta del punto 
DIE Di 150 POP DE 
9D1F El 160 POP HL 
9D20 DDBEO2 170 cP (1X+2) 3 Es el color del borde? 
9D23 2808 180 JR Z,SALD 35 Si asi es, SALD 
9D25 3E03 190 LD A,3 3 Si D=3, entonces estamos fuera 
9D27 BA 200 cP D 3 de la pantalla; saltamos a SALD 
9D28 2803 210 JR Z,SALD 
9D2A 13 220 INC DE 3 Siguiente punto 
9D2B  18EC 230 JR BUCLE 
9D2D 1B 240 SALD DEC DE 3 Retrocede un punto 
9D2E EDS3619D 250 LD (DERCHA),DE3 Guarda la posicion 
9D32 Di 260 POP DE 
9D33 El 270 POP HL 
9D3J4 ES 280 BUCLE2 PUSH HL 3 Ahora rastrea hacia la izquierda 
9D35 D5 290 PUSH DE 
9D36 CDFOBB 300 CALL *BBFO 3 Obtiene el color del punto 
9D39 Di 310 POP DE 
9DIA El 320 POP. HL 
9D3B DDBEO2 330 cP (1X+2) 3 Es el borde? 
9D3JE 2807 340 JR Z,SALI 
9D40 1B 350 DEC DE 3 Siguiente punto 
9D41 7B 360 LD A,E 3 Si DE=0, entonces estamos fuera 
9D42 B2 370 OR D 3 de la pantalla 
9D43 2802 380 JR Z,SALI 
9D45 18ED 390 JR BUCLEZ 
9D47 13 400 SALI INC — DE 3 Siguiente punto 
9D48 DD4E04 410 LD L, (1X+4) 3 Coordenada Y en HL 
9D4B— DD6605 420 LD H, (1X+5) 
9D4E ES 430 PUSH HL 5 La guarda 
9D4F CDCOBR 440 CALL *BBCO 
9D52 DD7E0O 450 LD A, (1X+0) 3 Extrae la tinta para el relleno 
9D55 CDDEBB 460 CALL *BBDE 3 de la linea, y la activa como 
470 3 color de los graficos 
9D58 El 480 POP HL 
9D59 ED53B419D 490 LD DE, (DERCHA)5 Coordenada X en DE 
9D5D CDF4BB 500 CALL R4BBF6 3 Traza la linea 
9D60 C9 510 RET 3 Terminado 
9D61 0000 520 DERCHA DEFW 00 


CLS: MOVE 100,0 


DRAW 100,600 

MOVE 200,0 

DRAW 200,400 

CALL 40200,150,200,1,1 


Comentarios 
El método operativo de la rutina es muy sencillo, y se hace uso de las 


rutinas del firmware del Amstrad para permitir su utilización en todos los 
modos de pantalla. Primero busca hacia la derecha hasta que la coorde- 
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nada X sea mayor que 750 o hasta que se encuentre un punto con el color 
especificado como “borde”. En este último caso, la posición X es almace- 
nada en una variable de dos bytes llamada “DERCHA”. La rutina devol- 
verá la posición X a su valor inicial. La búsqueda comienza entonces hacia 
la izquierda, hasta que se encuentre un punto del borde o hasta que la 
coordenada X sea igual a O. La línea se rellenará con el color requerido 
mediante una llamada a la rutina que dibuja líneas. El color que fue 
seleccionado para el relleno será ahora el color de la pluma de gráficos. 


Por ahora ya podemos rellenar una línea de la pantalla. ¿Qué pasa con 
las figuras reales? Bien, eso es muy fácil. Elegimos una coordenada X que 
corresponda a la mayor coordenada Y, asociada a una figura determinada. 
Esto significa que la operación de rellenado de una figura compleja puede 
que se tenga que llevar a cabo en varios pasos. Para aclararlo todo, fíjate 
en los dos dibujos siguientes. 


l | 
X X 


Circulo Triángulo 


El llenado se lleva a cabo con un bucle FOR...NEXT, que va variando 
la coordenada Y desde el valor más bajo, hasta su valor máximo. El 
siguiente programa en BASIC demuestra esta acción. Supongo que la 
rutina en código máquina ya está ensamblada en la dirección 40200: 


MODE 1 ¿REM Fija el modo de pantalla 
PLOT 0,0,1:REM Se localiza en 0,0 
REM Pluma 1 

DRAW 100,100: DRAW 200,0:DRAW 0,0 


REM Dibuja un triangulo 

FOR Y=1 TO 99:REM Bucle la coord. Y 
CALL 40200,100,Y,1,2 

NEXT 


Esta rutina presenta algunos inconvenientes, pero aun así es bastante 
útil. El principal problema es la velocidad, por eso conviene usarla sólo 
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para rellenar áreas o figuras pequeñas. También puede usarse en combina- 
ción con otras rutinas para rellenar el grueso de una figura, dejando las 
áreas secundarias a la anterior rutina. 


GP 


LUMA 


(PLUMA de Gráficos) 


Esta sencilla rutina especifica el color a usar para el papel y la pluma 
de gráficos. Es relocalizable. El papel de gráficos elegido sólo entrará en 
acción tras la ejecución de la orden CLG. 


Requisitos de entrada: Desde BASIC, usaremos CALL dirección, pluma, 
papel; siendo “pluma” el color de la tinta que 
debe usarse para la pluma de graficos, y “papel” 
es el color que se usará para el papel de gráficos. 
Partiendo del código máquina, IX apunta hacia 
un bloque de parámetros como el mostrado en la 
figura, A=2, 


Bloque de parámetros de GPLUMA 


Condiciones de salida: Todos los registros son alterados. 


Lon 


9D08 
9D08 
9DOA 
9DOB 
9DOE 
9D11 
9D14 
9D17 


gitud: 


FEO2 
co 
DD7E0O 
CDE4BB 
DD7E02 
CDDEBB 
co 


Ensámblalo 


16 bytes. 
10 3 ** GPLUMA +. 
20 ORG 40200 
30 cP 2 3 Si mo hay 2 parametros, 
40 RET  NZ 3 retorno 
50 LD A, (IX+0) 
60 CALL *BBE4 3 Cambia el papel de graficos 
7 LD A, (1X+2) 
go CALL *BBDE 3 Cambia la tinta de graficos 
90 RET 


y pruébalo con el siguiente programa BASIC. 


10 MODE 1 : PLOT 0,0,1 


20 DRAW 100,100 : CALL 40200,2,3 
30 DRAW 100,400 
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Comentarios 


El color de la pluma de gráficos entra en acción inmediatamente y el 
papel lo hará después de la orden CLG. 

Vamos a ver ahora cómo mover imágenes a través de la pantalla, 
utilizando rutinas en código máquina. El resto de este capítulo estará 
dedicado al movimiento de caracteres a través de la pantalla y en el modo 
de pantalla que tú elijas. Haremos uso de las rutinas residentes en el 
firmware del Amstrad, para escribir caracteres en pantalla, ya que todavía 
pueden dar buenos resultados. Después de ver brevemente la técnica 
empleada, presentaré un programa que mueve un carácter por pantalla. 
Esto provee al Amstrad de un sencillo “seudo-duendecillo” (SPRITE de 
otros sistemas) para movimientos con gráficos, de propósito general. Ter- 
minaré el capítulo con un estudio de los caracteres multicolores, y de 
cómo pueden ser desplazados por la pantalla. 


Desplazando caracteres 


128 


Las principales operaciones que deben llevarse a cabo en los desplaza- 
mientos de caracteres a través de la pantalla, son las siguientes: 


1. El carácter debe desaparecer en la pantalla de la antigua posición. 

2. Las coordenadas X e Y del carácter deben ser actualizadas a la nueva 
posición. 

3. El carácter debe escribirse en la nueva posición. 


La suavidad del movimiento resultante depende de dos factores. El 
primero es la magnitud del incremento que damos a las coordenadas X e 
Y entre una posición y la posterior. El segundo factor es la frecuencia con 
que se altera la posición del carácter. Se pueden obtener movimientos 
delicados si el carácter se traslada uno o dos puntos de pantalla cada vez. 
En cambio, si la variación es de carácter a carácter, el movimiento parecerá 
brusco y sin continuidad. Igualmente, una rápida actualización de la 
posición del carácter nos ofrecerá suavidad en el desplazamiento. La tarea 
de eliminar el carácter de la posición anterior puede tener una solución 
sencilla si reescribimos un espacio en blanco en esa posición anterior. Sin 
embargo, esta acción puede causar problemas si el carácter se está despla- 
zando sobre un fondo que contiene otra imagen. Al escribir un espacio en 
blanco, desaparecerán tanto el carácter como el fondo. Por este motivo, no 
utilizaremos esta técnica. Un segundo método es manejar el modo XOR 
para los gráficos de pantalla. Sin entrar en detalles, esto causaría la 
desaparición de una imagen de la pantalla si volvemos a escribir por 
segunda vez la misma imagen y en el mismo sitio. A pesar de todo se 
presentan algunos inconvenientes. Aunque este método deja intacto el 


fondo de la pantalla, pueden producirse algunos cambios de color del 
fondo, mientras el carácter se mueva por esa zona. Sin embargo, probable- 
mente éste sea el método más sencillo para conseguir que las cosas 
funcionen aceptablemente. Claro está que siempre puedes volver a dibujar 
el fondo después de cada desplazamiento, pero esto haría que las cosas 
marcharan demasiado lentas. Por ello vamos a ver un programa que 
desplaza caracteres de un solo color, utilizando el modo XOR. 


DESPCAR —'(DESPlaza CARácter) 


La rutina desplaza un determinado carácter definido por el usuario, o 
un carácter habitual, desde una posición de la pantalla a otra. El movi- 
miento es instantáneo. En el interior del programa se encuentra una tabla 
de información denominada Tabla de Figuras, que contiene la información 
de cada carácter que quieras desplazar durante el programa. La rutina se 
puede relocalizar, cuidando que la dirección de “TEMP” y de la Tabla de 
Figuras sea también alterada. 


Requisitos de entrada: Partiendo de un programa BASIC, usaremos 
CALL dirección, car, Xinc, Yinc; siendo “car” el 
número asignado al carácter dentro de la Tabla 
de Figuras. Este “car” se refiere al carácter que se 
quiere desplazar. Xinc es el incremento que se da 
a la coordenada X de la posición del carácter; 
Yinc es el incremento que deseamos darle a.la 
coordenada Y de la posición del carácter. Estos 
incrementos pueden ser tanto positivos como ne- 
gativos. El valor de “car” debe ser mayor que 0. 
Si accedemos desde código máquina, entonces 
A=3 y IX apuntando a un bloque de paráme- 
tros como el de la figura. También deberá estar 
presente, como pronto veremos, una Tabla de 
figuras. 


Bloque de parámetros de DESPCAR 
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Condiciones de salida: 


Longitud: 
A41O0 

A410 FEO3 
Aaq12 Co 
A413 DDA4604 
A416  —DDES 
A418 DD2191A4 
AG1C  DD23 
AS1E DD23 
A420 DD23 
A422 DDZ3 
A924  DD23 
A426 DD25 
A428 10F2 
A42A DD228FA4 
A42E DDS5SEO0O 
A431 DDS5601 
A434 DD6E02 
A437 DDé603 
AGA ES 
A43B DS 
A43C  CDCOBB 
A43F DD7EOS 
A442 CDDEBB 
A%445 3EO1 
A447 CD59BC 
A44A DD7E04 
A44D CDFCBB 
A4SO Di 
A451 El 
A452 DDE1 
A954 ES 
A455 DS 
A456 El 
A457  DD4E02 
A4SA DD4403 
A45D 09 
A4SE ES 
A4SF Di 
A460  —DDES 
A452 DD2ABFAA 
A466 DD7300 
A%469 DD7201 
A46C DDE1 
A46E DD4E0O 
A471 DD4401 
A474 El 
A475 09 
A4756 DD2A8FA4 
A47A DD7502 
A47D DD7403 
A480 CDCOBB 
A483 DD7E04 
A486 CDFCBB 
A489 3E00 
A48B  CDS9BC 
A4BE C9 


BUCLE 


Todos los registros son alterados. El color de la 
pluma de gráficos será el del carácter dibujado. 
El modo de gráficos quedará en “absoluto” o 
“forzado”, y el cursor permanecerá en la última 
posición del carácter. 


127 bytes sin incluir la Tabla de Figuras. 


** DESPCAR ** 


ORG 


LD 
CALL 
RET 


42000 
3 

NZ 

B, (1X+4) 
IX 

IX, TABLA 
IX 

IX 

IX 

IX 

IX 

IX 

BUCLE 


(TEMP), 1X; 


E, (IX) 
D, (1X+1) 
L, (1X+2) 
H, (1X+3) 
HL. 

DE 
*BECO 

A, (1X+5) 


. *+BBDE 


A,1 
ABCSI 5 
A, (1X+4) 
R*BBFC 
DE 

HL 

IX 

HL 

DE 

HL 

C, (1X+2) 
B, (1X+3) 
HL, BC 
HL 

DE 

IX 


IX, (TEMP) 


(1O,E 


(IX+1),D 
IX 

C, (1X+0) 
B, (1X+1) 
HL 

HL, BC 


IX, (TEMP) 


(1IX+2),L 


(1X+3),H 
*BBCO 

A, (1X+4) 
*BBFC 
A,O 
4BCS9 


“os 


Comienzo de la Tabla de Figuras 
Obtiene la definicion 


Almacena la definicion 


Obtiene la coordenada X 
Obtiene la coordenada Y 


Se mueve a la posicion 
Impone el color 


Activa el modo de graficos XOR 


Imprime el caracter 


Recupera IX 


Suma el incremento a la 
coordenada X 


La introduce en DE 


Lo almacena en el 
registro temporal 


Suma el incremento a la 
coordenada Y... 


y la almacena en el 
registro temporal 


Se mueve a la nueva posicion 
Imprime el caracter 


Impone el modo ”*absoluto” 
para los graficos... 
y finaliza 


A48F 0000 £00 TEMP DEFW 00 


A491 0000 610 TABLA DEFW 00 3 Tabla de Figuras 
A493 0000 620 DEFW 00 5 Esta es *”postiza” 
A493 0000 630 DEFW 00 

A497 6400 640 DEFW 100 

A499 4400 650 DEFW 100 

A49B EA 660 DEFB 234 

A49C 01 670 DEFB 1 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


MODE 1 
J=1 
MOVE 100,100 


PRINT CHR$ (23) +CHR$ (1) 

TAG : PRINT CHR$(234)3 3: TAGOFF 
FOR I=1 TO 300 

CALL 42000,1,J,0 : NEXT 


Comentarios 


El programa está asistido por la presencia de la Tabla de Figuras, la 
cual contiene toda la información del carácter que el programador va a 
desplazar mediante esta rutina. Esta Tabla tine una entrada de 6 bytes 
para cada carácter, y la llamada con CALL a esta rutina especificará con 
el parámetro “car” la entrada de la Tabla de Figuras, que contiene los 
detalles del carácter a trasladar. Uno de estos datos de la entrada es el 
código ASCII del propio carácter. Una típica entrada de la Tabla es la del 
programa antes listado. En la siguiente figura se muestra un examen más 
detallado de lo que contiene una de las entradas de la Tabla: 


fin de la entrada 


color 
carácter 


soon y — 


entrada 1 


coord. Xx 
(TABLA +6) 


Entrada de la Tabla de Figuras: DESPCAR 


Antes de acceder a cualquiera de las rutinas en código máquina tendre- 
mos que preparar la entrada de cada carácter. La introducción de los 
valores apropiados en la Tabla de Figuras se efectuará con la orden 
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POKE en la dirección adecuada. Recuerda que los seis primeros bytes de 
la Tabla, que corresponden a la entrada 0, estarán en blanco. La Tabla 
contiene las posiciones X e Y iniciales del carácter, el código ASCH del 
carácter y el color con el que será escrito en pantalla. Los bytes que 
representan a X e Y serán actualizados cada vez que se cambie la posición 
del carácter. Esta forma de almacenar la información de los caracteres a 
trasladar, hace que esta rutina sea de la mayor utilidad general posible. 

El programa utiliza el modo XOR para eliminar el carácter de su sitio 
y redibujarlo en otro. La última posición es adquirida añadiendo el 
incremento de X (Xinc) a la actual coordenada X y añadiendo, por otra 
parte, el incremento Y (Yinc) al valor actual de la coordenada Y. Esta 
posición actualizada se almacena entonces en la Tabla de Figuras. La 
rutina trabaja perfectamente durante todo el tiempo, excepto con la prime- 
ra aparición del carácter sobre la pantalla, ya que justo en la primera 
posición ocupada por el carácter quedará una sombra del mismo. Si 
piensas un poco, descubrirás la respuesta a este problema. 

Cuando comienza a ejecutarse la rutina, primero hace desaparecer el 
carácter de la última posición, mediante el modo XOR, y después actuali- 
za la posición. Sin embargo, si no había nada que eliminar en aquella 
posición, en la pantalla quedará abandonada la imagen del carácter. 
Todas las restantes operaciones funcionarán perfectamente; pero no este 
primer detalle. Podemos solucionarlo si utilizamos una línea de BASIC 
como la de abajo, para posicionar inicialmente a cada carácter, justo en el 
lugar que le corresponde al principio. 


PLOT 1000, 1000, 1:TAG:PRINT CHR$ (23) + 
CHR$(1)5:MOVE imicioX,inicioY 
PRINT CHR$(caracter)3:TAGOFF 


La sentencia PLOT 1000,1000,1 impone que el color de la pluma de 
gráficos sea 1, y CHR$(23) seguido de CHRS(1) activa el modo de gráficos 
XOR. Si tenías 100,100 en la Tabla de Figuras como punto de partida 
para un carácter dado, 1 como su color y 254 como código ASCII del 
carácter, entonces la línea en BASIC anterior tomará la forma: 


PLOT 1000, 1000, 1:PRINT CHR$ (23) +CHR$(1)3: TAG: 
MOVE 100,100:PRINT CHR$(254)5 : TAGOFF 


El siguiente programa de demostración funcionará siempre que el 
código máquina de la rutina, incluyendo la Tabla de Figuras, se encuentre 
en la dirección 42000. 


' 1] 
O; 10 MODE 1 : PRINT CHR$(23)+CHR$ (1) 5 O 
20 PLOT 1000,1000,1:TAG 

30 MOVE 100,100:PRINT CHR$(234)32: TAGOFF" LO 


40 Yinc=1 : Xinc=1 


O SO FOR i=1 TO SO:NEXT:REM retardo ¡O 
60 CALL 42000,1,Xinc,Yinc ¡ 
o! 70 GOTO 50 O 
! ' 


Si deseas volver a ejecutar este programa, entonces tendrás que restau- 
rar las coordenadas actuales X e Y de la Tabla a sus valores iniciales, ya 
que durante la ejecución del programa ambas coordenadas han sido 
modificadas. Para volver a inicializar la Tabla, utiliza la orden POKE. 

Mientras utilizas esta rutina pueden suceder dos cosas: la primera es 
que, si intentaras mover el carácter demasiado rápido, éste parecerá que se 
bambolea, que tiembla. Esto se debe a la interacción entre la frecuencia del 
movimiento y la velocidad con que la imagen de la pantalla es renovada 
por el ordenador. La solución es sencilla; reduce la velocidad mediante un 
bucle de retardo en BASIC o código máquina, o bien mediante una orden 
CALL £BD19, que esperará hasta que se produzca un nuevo barrido de 
la pantalla, antes de proseguir con el programa. La segunda cuestión es 
que valores pequeños de Xinc y de Yinc ofrecerán un movimiento suave, 
pero también lento. Finalmente, una alteración del color en el que se 
dibuja el carácter, después de que éste haya comenzado su movimiento, 
puede provocar algunos efectos secundarios debido a la combinación del 
modo XOR con diferentes colores. 

Antes de terminar con esta rutina, veamos más detenidamente la 
estructura de la Tabla de Figuras. Como ya dije, cada entrada tiene una 
longitud de 6 bytes; los 6 primeros bytes de la Tabla deben estar puestos a 
cero. Llamaremos entrada O a estos 6 primeros bytes; la segunda entrada 
será la entrada 1, y así sucesivamente. El parámetro “car” de la sentencia 
CALL es utilizado para indicar cuál de las entradas de la Tabla de 
Figuras es la que deseas usar. Supongamos que queremos que la entrada 1 
corresponda al carácter 254 en el color 1 y con posición inicial en el punto 
200,200 de la pantalla. La entrada comenzará en.la dirección (TABLA + 6), 
donde TABLA es la dirección inicial de la Tabla de Figuras dentro de la 
memoria. La entrada completa así determinada sería: 


PLUMA 
CARACTER 


Por ello, cuando queramos poner este carácter en la pantalla por 
primera vez, usaremos una sentencia BASIC que escriba CHR$(254) en la 
posición 200,200 con la pluma 1 de gráficos. 
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En la Tabla de Figuras pueden introducirse numerosas entradas; puede 
escribirse una subrutina que se encargue de mover todos los caracteres a 
la vez. Por ejemplo, podríamos usar: 


REM Rutina de movimiento de 
caracteres 
numero=6 ¿REM 6 caracteres definidos 


por el usuario. 

FOR car=1 TO numero 
CALL 42000,car,Xinc,Yinc 
NEXT car: RETURIN 


Utilizando esto en combinación con la sentencia EVERY del BASIC 
podemos conseguir que el movimiento de los caracteres a través de la 
pantalla se produzca a intervalos determinados. Los diferentes valores de 
Xinc y de Yinc son alterados mientras tanto en el núcleo principal del 
programa. 

Los efectos de Xinc y de Yinc son inmediatos. Los valores positivos de 
Xinc provocan un desplazamiento hacia la derecha, mientras que los 
valores negativos de Xinc provocan un movimiento hacia. la izquierda. Por 
otra parte los valores positivos de Yinc causan un desplazamiento hacia 
arriba por la pantalla, mientras que los Yinc negativos provocarán que el 
movimiento sea hacia abajo. 

Veamos ahora una rutina similar, para trasladar caracteres de dos 
colores. Todos los principios que vamos a discutir son también aplicables 
a caracteres que tengan más de dos colores. El primer asunto a tratar aquí 
es cómo podemos dibujar en pantalla caracteres que tengan más de un 
color. Esto también puede serte útil en otras rutinas. 


Caracteres multicolores 


La solución se presenta en el uso del modo de gráficos XOR. Imagina 
que queremos construir un carácter de dos colores como el de la siguiente 
figura: 


Típico carácter de dos colores 
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Dos de los cuadrados están a un color y los dos restantes están en 
otro color. Desde el BASIC un carácter así puede dibujarse en pantalla 
utilizando, como enseguida veremos, la orden TAG. Lo primero es definir 
un carácter de usuario para cada uno de los colores de fondo que posee la 
composición final. Así, para un carácter de dos colores tendremos que 
definir dos caracteres definibles por el usuario. Observa que no debe 
haber áreas solapadas. Si esto ocurre cuando estamos usando el modo 
XOR, entonces pueden aparecer algunos efectos secundarios de color. En 
el ejemplo del carácter arriba definido debemos definir dos caracteres 
como éstos: 


papel 


XX 


Afortunadamente, éstos están disponibles entre las definiciones de ca- 
racteres del Amstrad, como CHR$(134) Y CHR$(137). Todo lo que hace- 
mos ahora es utilizar TAG para escribir el carácter en las mismas coorde- 
nadas gráficas para ambos componentes. Con esto se superpondrán las 
dos imágenes. Si dibujamos cada uno de ellos de un color diferente, 
entonces obtendremos nuestro carácter bicolor. Esto es lo que efectúa el 
siguiente programa en BASIC. 


MODE 1 

GOSUB 100 

FOR I=0 TO 300 : NEXT 
GOSUB 100 
GOTO 30 

REM Subrutina que imprime el carac. 
TAG 

PLOT 1000,1000,1 : REM color del 
primer caracter. 

MOVE 100,100 : REM Se localiza. 
PRINT CHR$(134);:REM Lo escribe. 
TAGOFF:PRINT CHR$ (23) +CHR$ (1)3: REM 
Fija el modo XOR de pantalla. 

TAG 

PLOT 1000,1000,2 : REM color del 
segundo caracter. 

MOVE 100,100 : REM Se localiza. 
PRINT CHR$(137)5:REM Lo escribe. 
RETURN 


OO OOoOQOomOo yo O0oosososm0 
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Ejecuta el programa y verás que la figura de dos colores se dibuja y 
elimina repetidamente. Tal vez te gustaría experimentar con otros caracte- 
res. Si estás interesado en juegos, los siguientes dos caracteres pueden serte 
de interés. 


O GE) 
[] Papel 


El cuerpo de esta bestia puede ser dibujado de amarillo y los ojos en 
rojo. Recuerda otra vez que no debería haber solapamientos. Si los hay, 
pueden obtenerse algunos efectos interesantes con el color y tal vez estés 
interesado en conseguir algunos de estos efectos. 

Veremos ahora un programa que nos permite desplazar caracteres de 
dos o más colores a través de la pantalla. Aunque la rutina venga prepara- 
da para caracteres de dos colores, los Comentarios que vienen a continuación 
te permitirán modificar el programa si así lo deseas. 

DESPCAR2, que es como llamé al programa en un derroche de 
imaginación, es muy similar a DESPCAR, tal y como mostrará un estudio 
del listado. La diferencia comienza en la Tabla de Figuras, donde ahora 
hay un color y un carácter para cada una de las “máscaras” que compo- 
nen el carácter completo. Así, una rutina bicolor tendrá dos entradas para 
color y carácter; una para cada una de las partes de la imagen global. Por 
ello, para un carácter de dos colores, la Tabla de Figuras presentará para 
cada una de las entradas una disposición así: 


po y ENTRADA 2 


coord. Y 


| | ENTRADA O 


Entrada de la Tabla de Figuras para dos colores 


ENTRADA 1 


Dentro del propio programa, la principal diferencia es la presencia de 
una segunda rutina para escribir un carácter tanto en la etapa de elimina- 
ción como en la de redibujar el carácter, que se usa con el segundo 
carácter coloreado. Obviamente, para un carácter con un tercer color, 
tendrá que haber una tercera operación de eliminado y redibujado que se 
encargue de este tercer carácter. Además, una rutina que desplace caracte- 
res de tres colores necesitará dos bytes extra en la entrada de la Tabla de 
Figuras para definir este tercer carácter y su color. 


DESPCAR2 (DESPlaza CARacteres a 2 colores) 


Esta rutina es utilizada para trasladar por pantalla caracteres bicolores 
en cualquiera de los modos de pantalla. Consulta los comentarios poste- 
riores para los detalles de manejo. 


Requisitos de entrada: Desde BASIC usaremos CALL dirección, car, 
Xinc, Yinc; donde car, Xinc y Yinc tienen el 
mismo significado que en DESPCAR. 
Partiendo de otras rutinas en código máquina, 
A=3 y IX contiene la dirección de un bloque de 
parámetros con estructura idéntica a la utilizada 
para DESPCAR. 


Condiciones de salida: Todos los registros son alterados. El color de la 
pluma de gráficos será el último que se utilizó 
para dibujar el carácter. El modo de gráficos será 
el “absoluto” o “forzado” y el cursor de gráficos 
se encontrará en la posición a donde fue trasla- 
dado el carácter. 


Longitud: 179 bytes, sin incluir la Tabla de Figuras. 
10 5 ** DESPCARZ +** 

As10 20 ORG 42000 

A410 FEO3 30 cP 3 

A412 CO 40 RET NZ 

A413 DD4404 50 LD B, (1X+4) 

A416 —DDES 60 PUSH IX 

A418 DD21C1A4 70 LD IX,TABLA 5 Comienzo de la Tabla de Figuras 

A41C  DD23 80 BUCLE INC — IX 5 Obtiene la definicion 

A41E DD23 90 INC — IX 

A420 DD23 100 INC — IX 

A422 DD23 110 INC — IX 

A424 DD23 120 INC — IX 

A4256 DD23 130 INC — IX 

A428 DD23 140 INC 1X 

A42A DD23 150 INC IX 

A42C — 10EE 160 DJNZ BUCLE 

A42E DD22BFA4 170 LD (TEMFP),1X5 Almacena la definicion 

A432 DDS5EO0O 180 LD E, (IX) 

A433 DDS5S601 190 LD D, (IX+1) 5 Obtiene la coordenada X 

A438 DD6E02 200 LD L, (1X+2) 5 Obtiene la coordenada Y 

A43B DD4603 210 LD H, (IX+3) 

A4JE ES 220 PUSH HL 
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AG3F 
A440 
A443 
A446 
A949 
A34B 
A44E 
A451 
A454 
A4S57 
ASA 
A45B 
A45C 
A45D 
A4SE 
A461 
AI654 
A967 
A468 
A469 
A46B 
AGEC 
A46D 
AE 
A471 
A974 
A975 
AS76 
A477 
A479 
A47D 


A480 
A483 
A485 
A488 
A48B 
A48C 
A48D 
A491 


A49A 
A497 
A498 
A499 
A49C 
AIF 
ASAZ 
ABAS 
A4AB 
AJA9 
AGAA 
AJAD 
A4BO 
A4B3 
A4B6 
A4B9 
A4BB 
A4BE 
A4BF 
A4C1 
A4AC3 
ASc5s 
A4C7 
AICO 
A4CB 
A4CD 
AACE 
ASCF 
A4DO 


DS 
CDCOBB 
DD7EO0S 
CDDEBB 
3E01 
CcD5s9BCc 
DD7E04 
CDFCBB 
DD7E07 
CDDEBB 
Di 

El 

ES 

DS 
CDCOBB 
DD7EO06 
CDFCBB 
Di 


DD2ABFAA 
DD7300 


DD7201 
DDE1 
DD4E00 
DD4601 
El 

09 
DD2ABFA4 
DD7502 


DD7403 
ES 

DS 
CDCOBB 
DD7EO0S 
CDDEBB 
DD7E04 
CDFCBB 
Di 

El 
CDCOBB 
DD7EO07 
CDDEBB 
DD7E06 
CDFCBB 
3E00 
CD59BC 
co 
0000 
0000 
0000 
0000 
0000 
6400 
6400 
86 

01 

89 

02 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
glo 
820 
830 
840 
eso 
850 
870 
880 
890 
900 
910 
920 


e. 


TEMP 
TABLA 


PUSH DE 

CALL *BBCO 
LD A, (1X+5) 
CALL RBEDE 
LD Al 3 
CALL HBCS9 5 

LD A, (1X+4) 


e. e. 


CALL RBBFC 5 
LD A, (1X+7) 
CALL *BBDE 5 
FOP DE 

POP. HL 

PUSH HL 

PUSH DE 

CALL *BBCO 3 
LD A, (1X+6) 
CALL *BBFC 5 
POP DE 

POP. HL 

POP IX 5 
PUSH HL 

PUSH DE 

POP HL 


LD C,(1X+2) 
LD B,(1X+3) 


.. us 


ADD HL,BC 
PUSH HL 

POP DE 5 
PUSH IX 

LD IX, (TEMP) 
LD O C(IM,E 5 
LD (IX+1),D 
POP IX 


LD  C,(IX+0) 
LD  B,(IX+1) 


.. 


LD (IX+2),L 5 


LD (1X+3),H 
PUSH HL 

PUSH DE 

CALL *BBCO 
LD A, (IX+5) 


e. e. 


CALL *BBDE 
LD A,(1IX+6) 5 
CALL *BBFC 
LD Ao ; 
CALL HBC59 3 


o] 
m 
mn 
z 
o 
o 
a. 0... se 


|») 
m 
mn 
w 
pa 
CA 
N 
.. .. .. 


Se mueve a la posicion 
Impone el primer color 


Activa el modo de graficos XOR 


Imprime el primer caracter 


Obtiene el segundo color 


Se posiciona otra vez 


Imprime el segundo caracter 


Recupera IX 


Suma el incremento a la 
coordenada X 


La introduce en DE 


Lo almacena en el 
registro temporal 


Suma el incremento a la 
coordenada Y... 


y la almacena en el 
registro temporal 


Se mueve a la nueva posicion 
Primer color 


Imprime el primer caracter 


Segundo color 
Imprime el segundo caracter 


Impone el modo *absoluto” 
para los graficos... 
y finaliza 


Tabla de Figuras 
Esta es ”postiza” 
(Se puede cambiar) 


Primer caracter 
Color del primer caracter 
Segundo caracter 
Color del segundo caracter 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE 1 

20 CELS 

3o J=1 

40 FLOT 1000,1000,1 : MOVE 100,100 
50 FRINT CHR$ (23) +CHR$ (1) 3 

60 TAG : PRINT CHR$(1:34)5 


70 PLOT 100,100,2 : FRINT CHR$(137):5 
80 TAGOFF 

90 FOR I=1 TO 300 : CALL 42000,1,J,0 
100 CALL +BDIO 

110 NEX! 


Comentarios 


Con cuidado, la rutina puede ser relocalizable. Será necesario alterar la 
dirección dada por los bytes del programa, los cuales están preparados 
para funcionar en la dirección 42000. Para la Tabla de Figuras y la 
variable TEMP ocurre lo mismo. Al igual que con DESPCAR, todo 
carácter tiene que ser colocado en la posición de comienzo para su 
primera aparición en pantalla. Mediante el uso de TAG desde el BASIC, 
podemos evitar que aparezca abandonada la “sombra” del carácter desde 
el momento en que éste varía su posición respecto a la inicial. También 
necesitaremos cargar de información la Tabla de Figuras para cada entra- 
da, mediante la orden POKE. El siguiente programa BASIC también 
demuestra el funcionamiento del código máquina de DESPCAR2. Supon- 
go que el código máquina ya está almacenado en la dirección 42000 y que 
la misma Tabla de Figuras dada en el listado de la rutina ya ha sido 
incluida. Advierte que, al igual que en DESPCAR, la primera entrada de 
la Tabla de Figuras, entrada 0, tiene todos sus bytes puestos a cero. 


' 
o? 10 MODE 1 O 
20 Yinc=1 
o! 50 Xinc=1 O 
! 40 FLOT 1000,1000,1 : REM color del 
O primer caracter. 108 
: 50 PRINT CHR$ (23) +CHR$(1)5:REM Fija el 
¡ modo XOR de pantalla. l 

2 560 MOVE 100,100 : REM Se localiza. 10 
; 70 TAG:PRINT CHR$(134)3:REM escribe el ; 

O primer caracter. LO 
: 80 PLOT 1000,1000,2 : REM color del 
O | segundo caracter. 0) 

' 
1 1 


90 MOVE 100,100 : REM Se localiza. 


140 


100 PRINT CHR$(137)5:REM escribe el 


1] I 
' 
o! segundo caracter. O 
110 TAGOFF 
O! 120 FOR 1=0 TO 300 O 
130 CALL 42000,1,Xinc,Yinc 
PS 140 FOR J=0 TO 20 Lo 
150 NEXT J : REM Retardo. 
160 NEXT 1 
97 170 END ¡O 


Si deseas volver a ejecutar esta rutina, tendrás que introducir otra vez 
los valores iniciales en la Tabla de Figuras. De hecho, se puede escribir un 
sencillo programa en código máquina que tome como parámetros los 
diferentes trozos de información necesarios para la Tabla de Figuras y los 
almacene en el lugar correcto. Te dejo a ti esta tarea de escritura. 

El bucle de retardo de las líneas 140-150 del anterior programa puede 
requerir una alteración dependiendo del resto del programa y del tiempo 
que le lleve desplazar un número variable de caracteres. Cuantas más 
rutinas de escritura de caracteres haya, el tiempo que lleva desplazar 
caracteres multicolores será mayor que el trabajo de mover caracteres de 
un único color. 

Fijémonos en la siguiente subrutina, que es un ejemplo de subrutina 
en BASIC para actualizar una entrada de la Tabla de Figuras del progra- 
ma DESPCAR2. Se supone que la variable “tabla” contiene la dirección 
del primer byte de la Tabla de Figuras. 


entrada=tabl a+ (nx8) 

REM n=numero de entrada 

POKE entrada,100:REM coordenada X 
POKE (entrada+1),0 

POKE (entrada+2),100 : REM 
coordenada Y 

POKE (entrada+3),0 

POKE (entrada+4),134 : REM primer 


caracter 

POKE (entrada+5),1 : REM primer 
color 

POKE (entrada+6),137 : REM segundo 
caracter 

POKE (entrada+7),2 : REM segundo 
color 


Tanto en DESPCAR como en DESPCARZ2, sólo es necesario escribir 
el carácter en la posición inicial cuando éste vaya a aparecer por primera 
vez en la pantalla. Después de esto, para trasladar el carácter a una 


posición de pantalla deseada, simplemente tendremos que ajustar los valo- 
res de Xinc y de Yinc. 

Con esto se completa este capítulo de rutinas de manipulación de 
gráficos. Continuaremos ahora viendo las rutinas de código máquina que 
interaccionan con el teclado. Se incluyen rutinas de utilidad para la entra- 
da de cadenas de caracteres, para el manejo de juegos y otras aplicaciones. 
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Operaciones 
de teclado 


En el “Locomotive BASIC” contamos, afortunadamente, con una muy 
sofisticada gama de órdenes que nos permiten realizar cosas como deter- 
minar el intervalo de repetición de las teclas pulsadas, cambiar el carácter 
asignado a las teclas, etc. Además, tenemos la orden KEY que nos permite 
ligar cadenas de caracteres a teclas determinadas. Y, cómo no, contamos 
con órdenes tan útiles como INPUT, INKEY e INKEYS. Sin embargo, 
para rutinas en código máquina, lo que nos interesa normalmente es saber 
si una tecla ha sido pulsada; esto es extremadamente fácil desde nuestros 
propios programas, ya que disponemos de las excelentes facilidades del 
firmware. En este capítulo te proporcionaré una variedad de rutinas que 
podrás usar en programas tanto en código máquina como en BASIC. Así 
que sin más rodeos vamos allá. 


NORESET 


Esta rutina altera el comportamiento del ordenador frente a la secuen- 
cia de teclas SHIFT-CTRL-ESC. En vez de inicializar el ordenador total- 
mente, se ignora por completo durante la ejecución del programa y sólo 
genera el mensaje break volviendo al modo interactivo. Análogamente, 
ESC queda completamente inhibido en la ejecución de un programa. 
Incluso proporciona un mayor grado de protección en la ejecución de un 
programa. La rutina es relocalizable. 
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Requisitos de entrada: Desde BASIC, CALL dirección,n, donde n=0 
inhibe la inicialización del aparato y n=1 provo- 
ca que SHIFT-CTRL-ESC generen una iniciali- 
zación completa. 

Desde código máquina, IX apunta a un solo byte 
que contiene “n” y A=1. 


Condiciones de salida: AF alterado. 


Longitud: 22 bytes. 

10 5 ** NORESET + 
9D08 20 ORG 40200 
9DO8 FEO1 30 cP 1 
9DOA CO 40 RET NZ 
9DOB DD7E0O 50 LD A, (IX) 
9DOE FEOO 60 cP o 
9D10 2806 70 JR Z, INHIBE 
9D12 3EC3 80 LD A, 195 
9D14 32EEBD 90 LD (*BDEE),A 
9D17 C9 100 RET 
9D198 3EC9 110 INHIBE LD A,201 
9D1IA 32EEBD 120 LD (WBDEE),A 
9D1D C9 130 RET 


Pruébalo con esto: 


CALL 40200, 1 
FOR J=1 TO 3000:NEXT 
CALL 40200,0 


Comentarios 


Esta rutina, como ya he dicho, inhibe totalmente a ESC durante la 
ejecución de un programa, por lo que si realizas una orden 


CALL 40200,0 


y luego pasas a un bucle continuo... ¡lo llevas claro! Esta línea sólo se 
ejecutaría si tuvieras un programa trabajando. Funciona alterando el 
primer byte de una de las entradas del bloque de saltos para interpretar el 
código como una instrucción RET. Cuando se accede al bloque de saltos 
después de introducir cualquiera de las secuencias de teclas anteriores, se 
realiza un regreso inmediato. Para restablecer el comportamiento normal, 
el byte antiguo, que es 195, se repone como primer byte en la entrada del 
bloque de saltos. 


GET 


La mayoría de los ordenadores cuentan con una función llamada GET, 
cuyo papel es conseguir que la ejecución del programa cese hasta que se 


pulse una tecla. La función devuelve como resultado el código ASCII de la 
tecla que ha sido pulsada. Así 


G=GET 


devolverá el código ASCII en la variable G. El BASIC del Amstrad no 
dispone de esta función, y normalmente podemos simularla utilizando un 
par de líneas de BASIC tales como: 


10 G$=INKEY$:1F G$="" THEN GOTO 10 
20 G=ASC(G$) 


30 RETURN 


He aquí una rutina en código máquina que realiza la función GET sin 
necesidad de las líneas de BASIC anteriores. 


Requisitos de entrada: Desde BASIC CALLdirección,aG%, donde G%, 
es una variable previamente definida en donde se 
introducirá el código ASCII de la tecla pulsada. 
Desde código máquina, es mejor llamar directa- 
mente a la rutina del firmware. 


Condiciones de salida: AF, HL son alterados. 


Longitud: 18 bytes. 
10 5; . GET e. 

9D08 20 ORG 40200 

9D08 FEO1 30 cP 1 

9DOA CO 40 RET  NZ 3 Retorno en caso de haber un numero 
50 5; erroneo de parametros 

9DOB DD6E0O0 60 LD L, (1X) 

9DOE DDé6601 70 LD H, (IX+1) 5 Obtiene la direccion de CARZ 

9D11 CD18BB 80 CALL *BB189 

QD14 77 90 LD (HL),A 

9D15 AF 100 XOR A 3 Pone el registro A a cero 

9D16 23 110 INC HL 

9D17 3600 120 LD (HL>,0O 

9D19 C9 130 RET 


Pruébalo con esto: 


10 carY=0 
20 CALL 40200, Ecarz 


30 FRINT carZ 
40 GOTO 20 
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Comentarios 


La variable usada para contener el código ASCII devuelto debe haber 
sido inicializada previamente de algún modo, como se hace normalmente 
con las variables prefijadas cont, incluso si le has dado el valor cero. Con 
respecto a la rutina del firmware, el código ASCII se devuelve en el 
registro A con el flag C puesto a 1. 

El programador en código máquina dispone de otras rutinas de teclado, 
pero no requieren inicialización, por lo que puedes llamarlas directamente 
desde tus rutinas en código máquina. No ofrecen nuevas ventajas al 
programador de BASIC. 


LECTURA DE TECLAS 


Esta rutina, accesible llamando a £BB1B, devuelve un código si está 
pulsada una tecla en el mismo instante en que se llama a la rutina. No 
esperará a que se pulse una tecla. Es por esto más útil en programas de 
juegos donde no se requieren pausas. Si una tecla estaba pulsada, al volver 
de la rutina el indicador C estará puesto a 1 y A contendrá el código de la 
tecla. De otro modo C estará puesto a 0. 


CHEQUEO DE TECLA 


Esto tiene algún parecido con la función BASIC INKEY(n), ya que 
examina si una cierta tecla fue pulsada en el mismo instante en que la 
rutina fue llamada. A la salida, Z=0 si la tecla se pulsó, y Z=1 si la tecla 
en cuestión no se pulsó. La rutina está localizada en la dirección £BB1E, 
conteniendo el registro A el número de la tecla a examinar. 

Puede ser útil a veces, al programar, para obtener información sobre la 
situación actual de las teclas SHIFT, CTRL, CAPS LOCK y SHIFT 
LOCK. Esto te permite detectar secuencias de teclas superfluas, como 
SHIFT-CTRL-ENTER, si fueses propenso a ello. La rutina se llama 
ESTADO. 


ESTADO 


Devuelve el estado actual de las teclas Shift, CTRL, Shift Lock y Caps 
Lock. La rutina es relocalizable. 


Requisitos de entrada: Desde BASIC, CALL dirección,aestado%,. 
Desde código máquina, IX apunta a un bloque 
de parámetros con A=1. El bloque de paráme- 
tros es un bloque de 2 bytes que contiene (prime- 


ro el byte bajo) la dirección de la posición donde 
quieras almacenar el byte de estado. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 31 bytes. 
19 3 + ESTADO ++ 
9D08 20 ORG 40209 
9D08 FEO1 30 cP 1 
9DOA Cu 40 RET  NZ 
9DOB — DD¿EJO so LD L, (1X+0) 
9DO0E DDé6601 60 LD H, (1X+1) 
9D11 ES 79 PUSH HL 
9D12 CD1ERE go CALL *BB1E 5 Obtiene el estado de SHIFT/CTRL 
9D15 C5 90 PUSH BC 3 Guarda el registro EC 
QD16 CDZ1BB 106 CALL $BB21 5 Obtiene el estado de CAPS/LOCK 
9D19 7D 110 LD A,L 
9DIA E680 120 AND 128 3 Compara el estado de CAPS/LOCK 
9D1C 65F 130 LD L,A 3 con Ó y con 128, 
140 5 guardando el resultado 
9D1D 7C 150 LD AsH 3 Compara el estado de SHIFT/CTRL 
9D1E E601 150 AND 1 jocon 0 y con 1, 
179 5 sumando el resultado a L 
9D20 85 180 ADD A, L 3 para obtener el valor 
199 ; de la comparacion 
9D21 Ci 200 FOP BC 35 Recupera BC 
9D22 El 210 POP HL 
9D23 71 220 LD (HL)>,C3 Guarda los estados obtenidos 
9D24 23 230 INC HL 3 en la variable ESTADO% 
9D25 77 240 LD (HL),A 
9D26 C9 250 RET 


estado7Y=0 


CALL 40200, estado”. 
FRINT HEX$(estado7) 
INFUT AS 
G0Tr0o 20 


Comentarios 


El valor almacenado en la posición para el byte de estado o el valor 
devuelto al BASIC en la variable estado%, deberá ser decodificado para 
conocer el estado de las diferentes teclas. Es mejor considerarlo bajo un 
formato hexadecimal de 4 dígitos, que puedes obtener en BASIC usando 


estado7.=0:CALL 40200, RBestado%. 
estado$=HEX$(estadoZ%):FRINT estado+ 
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El estado puede ser interpretado mediante la siguiente tabla: 


CAPS LOCK SHIFT LOCK SHIFT CTRL 


jon] tooo | som [ao | so | 


Un par de ejemplos para aclarar el uso de esta tabla. Si la tecla SHIFT 
LOCK estuviera pulsada y CTRL también, al mismo tiempo, el valor del 
estado sería: 


:8000+2%0080 
=+8080 


Análogamente, si un valor de £A0 fuera devuelto, un examen de la 
tabla revelaría que para obtener este valor a partir de los datos en la 
tabla, se requeriría la pulsación simultánea de las teclas SHIFT y CTRL 
($20+ 4:80). La rutina devuelve el estado de LOCK que estaba presente 
desde la última vez en que el ordenador estuvo esperando algún tipo de 
entrada. 

Probablemente habrás advertido programando tu Amstrad que las te- 
clas pulsadas durante largos bucles de programas son almacenadas en el 
buffer del teclado y aparecen con la siguiente sentencia INPUT o INKEY 
una vez finalizado el bucle. Compruébalo con esto. Una vez que hayas 
pulsado “ENTER” pulsa una secuencia cualquiera de las teclas y fíjate 
cómo aparecen en el momento en que el programa llega a INPUT. 


FOR I=0 TO 3000:NEXT: INFUT as 


Esto puede dar lugar a confusiones si no lo tienes en cuenta, y si el 
programa está esperando a que pulses una tecla antes de continuar, estas 
pulsaciones de tecla almacenadas pueden provocar el que el programa 
continúe sin esperar más. Muchos aparatos tienen un método mediante el 
cual tales caracteres pueden ser retirados de la memoria del teclado; este 
proceso se llama “despejar el buffer del teclado”. Retirará todos los códigos 
de teclas almacenadas en ese momento, y así, si se usa inmediatamente 
antes de una orden del tipo “GET”, asegura que el ordenador no fracase 
en su tarea por descuido. La rutina siguiente realiza este trabajo y se llama 
LIMPBUF. 


LIMPBUF (LIMPia el BUFfer) 


Despeja la memoria del teclado. 


Requisitos de entrada: CALL dirección, tanto desde BASIC como desde 
código máquina. 


Condiciones de salida: AF alterado. 


Longitud: 6 bytes. 
105 ** LIMPBUF 

9D08 20 ORG 40200 

9D08 CDO9BB 30 BUCLE CALL *$BBO9 3 Obtiene un caracter del registro 
40 5 de memoria para el teclado 

9DOB 38FB 50 JR C,BUCLE 3 Si C=1 , mas caracteres? 

9DOD C9 60 RET 

Comentarios 


Para ver la rutina en acción prueba lo siguiente. La rutina es relocali- 
zable, pero para este caso supongo que los bytes están en la dirección 
402000. 


10 FOR I=0 TO 3000: NEXT 1 


30 INPUT as$ 


Ejecutando esto y pulsando algunas téclas mientras el ordenador está 
en la línea 10, introducirá algunos códigos de teclas en la memoria, que 
serán mostrados cuando la sentencia INPUT se ejecute. Repite la ejecu- 
ción ahora, pero con un CALL 40200 en la línea 20. Las teclas extra 
pulsadas ahora serán borradas y los únicos caracteres que aparecerán 
en la sentencia INPUT serán aquellos introducidos una vez ejecutada la 
línea 20. 


ESPERAT (ESPERA Tecla) 


Esta rutina acepta como parámetros una cadena de caracteres y una 
variable precedida de (W. La rutina espera hasta que el programa detecte la 
pulsación de una de las teclas cuyo carácter se haya especificado en 
la cadena de parámetros. La variable con (Y devuelve la posición dentro 
de la cadena de parámetros del carácter que ha sido pulsado. La rutina 
es relocalizable. 


Requisitos de entrada: Desde BASIC, CALL dirección,Qa$,ap%, donde 
a$ ha sido previamente inicialiada con los carac- 
teres que la rutina debe esperar, p%, debe iniciali- 
zarse a O antes de hacer la llamada. 

Desde código máquina, las cosas son algo más 
complicadas. IX apunta a un bloque de paráme- 
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tros y A=2. En el bloque de parámetros, “cade- 
na” es la dirección de un bloque descriptor como 
el mostrado más abajo, “dir. variable” es la dirección 
de la posición de un solo byte que recogerá, una 
vez ejecutado el código, la posición de la tecla 
dentro del bloque de datos de los códigos ASCII 
aceptables a los que se apunta en el bloque des- 
criptor; “número” es el número de códigos ASCII 
almacenados en la tabla de códigos ASCH posi- 
bles apuntados por “dirección”. 


(IX+3) — 


Bloque de parámetros de ESPERAT 


í 


Bloque descriptor de ESPERAT 


(10 — 


Condiciones de salida: Todos los registros están alterados. Se produce 
una salida inmediata si se introduce un número 
equivocado de parámetros o si A no es igual a 2. 


Longitud: 63 bytes. 
10 5 ** ESPERAT *x 

9D08 20 ORG 40200 

9D08 FEO2 30 cP 2 

9DOA Co 40 RET  NZ 

9DOB DD4E00 50 LD L, (1X) 

9DOE DDé6601 60 LD H, (1X+1) 

9D11 ES 70 FUSH HL 3 Guarda en la pila la direccion 
80 ; de las variables 

9D12 DD6E02 90 LD L, (1X+2) 3 Extrae la direccion del bloque 

9D15 DD6603 100 LD H, (1X+3) 3 descriptor de la cadena 

9D18 7E 110 LD A, (HL) 3 Numero de caracteres de la caden 

9D19 23 120 INC HL 3 Introduce la direccion de la 

9D1IA 4E 130 LD C, (HL) 3 cadena, en el 

9D1B 23 140 INC HL 3 registro BC 

9DIC 46 150 LD B, (HL) 

9D1D C5 160 PUSH BC 

GD1IE El 170 POP HL 3 Tambien lo hace en HL 


QD1F 32449D 180 LD (TEMP),A 5 Almacena la longitud de 


190 ; la cadena buscada 
9D22 22459D 200 LD (TEMPZ),HL 5 Almacena la direccion 
210 5 de la cadena 
9D25 3A449D 220 BUCLE2 LD A, (TEMP) 3 Introduce la longitud en B 
9D28 47 230 LD B,A 
9D29 2A459D 240 LD HL, (TEMPZ) 5 Recupera la direccion 
9D2C  C5 250 PUSH BC 
9D2D ES 260 PUSH HL 
9D2E CD18BB 270 CALL +*+BB18 5 Espera algun caracter 
9D31 El 280 POP HL 
9D32 C1 290 POP BC 
9D33 1E01 300 LD E, 1 3 Inicializa un contador 
9D33 BE 310 BUCLE CP (HL) 3 Compara el caracter con 
9D364 2806 320 JR Z,VISTO 3 la tabla salta si lo encuentra 
9038 1cC 330 INC E 3 Actualiza el contador 
9D39 23 340 INC HL 3 Mira todos los caracteres 
9DJIA 10F9 350 DJNZ BUCLE 5 hasta que termine la tabla 
9D3C  18E7 360 JR BUCLE2 3 Si no coincide ninguno, 
370 ; vuelve a empezar otra vez 
9D3JE El 380 VISTO POP HL 3 Recupera la direccion 
390 ; de la variable 
QD3F 73 400 LD (HL),E 3 Pone el valor en ella 
9D40 23 410 INC HL 
9D41 3600 420 LD (HL),0O 
9D43 C9 430 RET 5 Vuelve al BASIC 
9D44 00 440 TEMP DEFB O 
9D45 0000 450 TEMP2 DEFW 00 


Pruébalo con esto. 


10 A$="abcdef" : p=0 


20 CALL 40200,€A$,€p7:PRINT pY3:GOTO 20 


Comentarios 


La rutina es muy útil para múltiples aplicaciones. Por ejemplo, exami- 
nando una contestación del usuario a una pregunta que requiere tan sólo 
un sí o un no, como respuesta. Las únicas teclas de respuesta con algún 
interés serán “S”, “N”, “s” y “n”. Así, desde BASIC podemos limitarnos a 
ejecutar la línea 


A$="SsNn":PZ=0:CALL 40200,RA$,eP7. 


La rutina sólo volverá al BASIC cuando una respuesta conveniente 
haya sido recibida desde el teclado, en este caso “S”, “N”, “s” o “n”. p% 
contendrá entonces un valor que corresponde a la tecla pulsada. Así, si 
“S” ha sido pulsada, p%=1. O bien, si “n” ha sido pulsada, p%,=4. 

La siguiente rutina que veremos es una simple rutina “de introducción” 
que permite al usuario teclear una cadena de caracteres terminados por la 
tecla ENTER. La rutina se llama INTROCAD. 


, 
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INTROCAD (INTROduce CADena) 


Acepta una cadena de caracteres desde el teclado y los almacena bien 
en una variable literal, bien en un bloque de memoria. 


7% bajo dirección —» [mum] 


“dato” alto 


Bloque de parámetros de INTROCAD Bloque descriptor de INTROCAD 


Requisitos de entrada: Desde BASIC, CALL dirección, A$,L%, donde 

L%, es el máximo número de caracteres que el 
usuario puede teclear. A$ es la variable literal 
que ha sido previamente inicializada para ser 
más larga que LY. 
Desde código máquina, IX apunta a un bloque 
de parámetros, “dirección” es la dirección de un 
bloque descriptor. En el bloque descriptor, num 
es el número de bytes que han sido colocados 
aparte para la cadena introducida. Deberá ser 
mayor que L%.. “dato” es la dirección en la me- 
moria donde la cadena introducida se va a si- 
tuar. 


Condiciones de salida: Todos los registros son alterados. La rutina ter- 
mina cuando: 


1. Se pulsa la tecla ENTER. 

2. El usuario teclea un número de caracteres 
mayor que L%. La cadena devuelta en este 
caso serán los L%, primeros caracteres. 


En ambos casos, se producirá un pequeño pitido. 
Los caracteres introducidos pueden ser entonces 
accesibles bien en una variable literal, bien en el 
área “dato” de la memoria. 


Longitud: 137 bytes. 

10 5 *%* INTROCAD *+. 
AO028 20 ORG 41000 
A028  FEOZ2 30 cr 2 
A02A CO 40 RET  NZ 
AO2B  DD7E0O 50 LD A, (1X) 
AO2E DD6E02 60 LD L, (1X+2) 
AO3J1  DD66503 70 LD H, (1X+3) 
AOJA4 BE 8o CP (HL) 


A0O3S 7E 90 LD A, (HL) 


A036  32BOAO 100 LD (TEMP),A 

A039 3801 110 JR C,BIEN 3 Unicamente continuaremos 
120 ; si la longitud de la cadena 
130 ; es mayor que la especificada 
140 5; por la sentencia CALL 

AOJB C9 150 RET 

AO3C 23 1650 BIEN INC HL 

AO3D  4E 170 LD C, (HL) 

AOJE 23 180 INC HL 

AO3F 46 190 LD B, (HL) 

A040 C5 200 PUSH BC 3 Obtiene la direccion de 

A041 DD7EO0O 210 LD A, (1X) 3 la longitud propuesta 

A044 47 220 LD B,A 3 para la cadena 

A045 DDE1 230 POP. IX 

A047 DD22AEAO 240 LD (TEMPIX),IX 

A04B  DDES 250 PUSH IX 

A04D C5 260 PUSH BC 

A04E  3ABOAO 270 LD A, (TEMP) 

AO0OS1 47 280 LD B,A 

A052 DD360020 290 LIMPIA LD (1X),32 

AO56 DD23 300 INC — IX 

A058 10F8 310 DJNZ LIMPIA 3 Quita los espacios de la cadena 

AOSA Ci 320 POP. BC 

AOSB DDE1 330 POP IX 

AOSD C5 340 BUCLE PUSH BC 3 Espera un caracter 

AOSE CD18BB 350 CALL *BB18 

A061 —FE7F 360 cP 127 

A063 2818 370 JR 7, BORRA 

A065 FEOD 380 cP 13 

A067  280D 390 JR Z,FIN 3 Salta si se ha pulsado ENTER 

A069 DD7700 400 LD (IX),A 

A06C CD5ABB 410 CALL 4BBS 3 Escribe el caracter en 
420 ; la pantalla 

A06F  DD23 430 INC — IX 3 Siguiente posicion a llenar 

AO71 C1 440 POP. BC 3 Ahora mira si excede de la 
450 5; longitud maxima 

A072 10E9 460 BUCLE1 DJNZ BUCLE 

A074 1801 470 JR FIN2 3 Salta sin recuperar BC 

AO0O76 Ci 480 FIN POP. BC 3 Finaliza la pila 

A077  3E07 490 FINZ2 LD A, 7 

A079 CDS5ABB 500 CALL HBRSA 3 Emite un pitido 

A0O7C C9 510 RET 

AO7D 2AAEAO 520 BORRA LD HL, (TEMPIX)3 Vendra aqui cuando 

A080 AF 530 XOR A j se pulse DEL 

AO0OB1 —DDES 540 PUSH 1X 

A083 Di 550 POP DE 

A0B4 ED52 560 SBC HL,DE 3 Si no hay mada en la cadena... 

A086 2007 570 JR NZ,ATRAS 

A088 3E07 seo LD A, 7 

AO0OBA CDSABB 590 CALL *BBSA 

A08D 181A 600 JR NADA 3 pita y salta a NADA 

AO08F  3E08 610 ATRAS LD A,8 

AO91 CDSABB 620 CALL *BBSA 

A094  3E20 630 LD A, 32 

A096 CDSABB 640 CALL H$BBSA 

A099 73E08 650 LD A,8 

AO9B CDSABB 660 CALL HBBSA 3 Retrocede y escribe un espacio 

AO9E Ci 670 POP BC 3 Ajusta el contador de caracteres 

A09F 04 680 INC B 

A0A0 04 690 INC B 

A0A1 —DD2B 700 DEC IX 3 Ajusta la posicion de la cadena 

AO0A3 DD340020 710 LD (1X),32 3 Espacio 

A0A7  18C9 720 JR BUCLE1 3 Vuelve 

A0A9 Ci 730 NADA POP BC 

AOAA 04 740 INC B 

AOAB 04 750 INC B 

A0OAC — 18C4 760 JR BUCLE1 3 Vuelve al bucle principal 

AOAE 0000 770 TEMPIX DEFW 00 

AOBO 00 780 TEMP DEFB O 
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Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 A$=STRING$ (40,”" ”) 
20 CALL 41000,€A$,:35 


30 FRINIT 
40 FRINT As 


Comentarios 


La rutina finaliza inmediatamente si el número de parámetros no es 
correcto o si A no contiene el valor 2. Si el valor de L%, es superior a la 
longitud de la cadena (desde BASIC) o mayor que la cantidad de espacio 
“dato” disponible (desde código máquina), también se produce un inmedia- 
to regreso. De otro modo, una vez llamada la rutina puedes teclear 
caracteres hasta que pulses la tecla ENTER o el número de caracteres 
tecleados supere L%,. Los caracteres se imprimirán en la pantalla y tam- 
bién se almacenarán en el área de la cadena. Será posible borrar, pero la 
rutina NO te permitirá borrar más allá de donde comenzó la cadena. 
Sonará un pitido si lo intentas. 

Prueba también la siguiente rutina de demostración en BASIC, Los 
bytes listados son para la dirección 41000 y supongo que el código 
máquina ya está almacenado en esta dirección. 


100 MODE 2 
110 P/=10:REM Numero de caracteres. 
120 A$=STRING$(12," ") 


130 CALL 41000,8A$,PZ 
140 PRINT:PRINT 
150 PRINT As 


Si ejecutas esto, introduces algunos caracteres y luego listas el progra- 
ma, advertirás que la definición de la cadena en la línea 120 ha sido 
modificada para recoger los caracteres que se han tecleado. Hablaré más 
de ello en el capítulo 9, cuando discutamos la estructura del programa en 
BASIC de Amstrad con más detalle. 

Aunque las rutinas ROM existen en el Amstrad para distintas aplica- 
ciones, como alterar los intervalos de repetición de las teclas, etc., no me 
propongo entrar aquí en la explicación de ninguna rutina. Normalmente 
es más sencillo utilizar equivalentes en BASIC. Así que aquí terminamos 
nuestro estudio de las rutinas de teclado. 


Rutinas 
de sonido 


El Amstrad es capaz de generar algunos efectos de sonido impresio- 
nantes y no hay duda que serás consciente de ello si ya has intentado 
usar las extensas facilidades de sonido del ordenador desde el BASIC. 
Muchas de estas facilidades también están disponibles desde el código 
máquina por medio de las rutinas del firmware. Estas permiten al progra- 
mador de código máquina el acceso a la cola de espera, a las envolventes 
de tono, envolventes de volumen, etc. Todas ellas están cuidadosamente 
documentadas en el manual técnico de firmware de Amsoft, y no hay 
motivo para repetir aquí dicha información. 

En lugar de eso, quiero dirigir la atención directamente hacia la pro- 
gramación del generador programable de sonido. Dirás que, ¿para qué 
molestarse si podemos conseguir los efectos mediante las rutinas del firm- 
ware? Bien, el empleo de las rutinas del firmware requiere, a menudo, 
complicadas tablas de datos que han de ser almacenadas en memoria 
antes de acceder a dichas rutinas. El proceso de inicialización no es tan 
largo de realizar cuando usamos directamente el GPS. Si bien el GPS no 
puede hacer todo lo que está disponible desde el BASIC, sí que es capaz 
de generar tonos, ruido y tiene algunas envolventes de volumen accesibles 
con facilidad; todo ello lo convierte en un dispositivo bastante versátil. 
Las envolventes de tono y demás, disponibles desde el BASIC, son produ- 
cidas por el GPS con una pequeña ayuda de la CPU. La ventaja de usar 
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directamente el GPS es que para los efectos de sonido a menudo deseados 
en programas de juegos, etc., es más conveniente el acceso directo al GPS 
que el inicializar las diferentes tablas de datos que son requeridas por las 
rutinas del firmware. Claro está que para algunos efectos sonoros necesita- 
remos utilizar rutinas del firmware, pero aun así encontrarás sorprendente 
la cantidad de cosas que puedes obtener del GPS por sí solo. 


¡Pita! 


El efecto sonoro más simple que se puede obtener es el generado por 
el siguiente fragmento de código máquina. 


LD A,7 
CALL — *BBSA 
RET 


Este “pitido” es útil para indicar que algo ha ocurrido o que se ha 
detectado un error, o para cosas así. 


El generador programable de sonido 
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El GPS es un instrumento muy versátil y relativamente sencillo de 
usar, aunque a primera vista parezca un poco apabullante. Es un dispositi- 
vo de tres voces; esto es, es capaz de generar tres sonidos diferentes a un 
mismo tiempo. También posee unas cuantas envolventes de volumen, 
implementadas en su hardware. El control del volumen producido por 
cada canal se puede gobernar desde el exterior. Si no estás seguro sobre el 
significado de la palabra envolvente, entonces te sugiero que consultes el 
manual del usuario de Amstrad y leas el capítulo 6. La generación y la 
amplitud de los tonos emitidos son controlables individualmente para 
cada voz. La pastilla también es capaz de generar ruido blanco. Una 
colección de quince registros insertados en el GPS son los encargados de 
llevar a cabo todo esto. Estos registros pueden ser leídos o escritos de una 
forma similar a los de la CPU. El GPS también es capaz de realizar 
Operaciones de entrada/salida, pero no vamos a profundizar en eso aquí. 
Aunque el sistema operativo del Amstrad accede a esta pastilla mediante 
el chip PPI (interfaz periférico programable), no podemos escribir directa- 
mente en los registros de la PPI. Bueno, en realidad, sí podemos, pero no 
sería aconsejable debido a la complejidad de las operaciones de E/S del 
Amstrad y la posibilidad de olvidar algún detalle mientras lo preparamos. 
En cambio, Amstrad nos ofrece una rutina muy útil que nos permite 
escribir valores en un determinado registro del GPS sin peligro alguno de 
dejar las cosas a medio hacer. 


La rutina MC REGISTRO DE SONIDO, del firmware 


Esta rutina se encuentra en la dirección $£¿BD34; para poder llamarla, 
el registro C contendrá un valor entre 0 y 255 y el registro A contendrá el 
número de registro del GPS en donde quieras escribir el valor. A la salida, 
los registros AF y BC estarán alterados. La siguiente rutina, REGISTRO, 
puede utilizarse desde el BASIC para escribir en valores en los registros 
del GPS. 


Registro 


Una rutina que permite al programador acceder directamente y desde 
el BASIC a los registros del GPS. 


Requisitos de entrada: Partiendo desde BASIC, usaremos CALL direc- 
ción, reg, valor; siendo reg el número de registro, 
y valor el valor que queremos escribir en el re- 
gistro. 
Desde el código máquina, la rutina de la ROM 
puede ser llamada directamente. 


Condiciones de salida: Irrelevante. 


Longitud: 12 bytes. 

9D0O8 10 REGIST ORG 40200 
9D08 DD7E02 20 LD A, (1X+2) 
9DOB  DD4E00O 30 LD C, (IX+0) 
9DOE  CD34BD 40 CALL +BD34 
9D11 co so RET 
Comentarios 


Es esencial para esta rutina que adquieras algunos conocimientos sobre 
los registros del generador programable de sonido antes de usarla. Veamos 
esto ahora mismo. 


Registros del GPS 


Esta sección es algo así como un “cursillo intensivo y apresurado” 
sobre los registros del GPS. Si lo que realmente quieres es estar versado 
en el dispositivo, entonces consulta la hoja de aplicaciones del AY-3-8912 
de la General Instruments. Sin embargo, para propósitos de programa- 
ción, los datos aquí presentados serán probablemente los más adecuados. 
Los registros del GPS están numerados, con afán de originalidad, del 0 al 
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15. Los registros 14 y 15 no son utilizados para la generación de sonidos, 
sino que están enredados con la parte de E/S del GPS. Como todos los 
registros, si no sabes exactamente qué es lo que estás haciendo, ¡NO LOS 
TOQUES! 


Registros O al 5 


Estos registros controlan la producción de las notas emitidas en los 
canales 1, 2ó 3. La emisión del canal 1 es controlada por los registros O y 
1, la del canal 2 por los registros 2 y 3, y la del canal 3 por los registros 4 
y $. 

Los registros se componen de 12 bits efectivos; los 8 bits más bajos 
están en el registro de número más bajo de cada par, y los 4 bits más altos 
están contenidos en el registro con número mayor de los que componen 
el par. El registro con los ocho bits más bajos, esto es, el registro O para el 
canal 1, es denominado registro de control fino del tono, y el registro con 
los cuatro bits más altos se denomina registro de control grueso del tono. 
La razón para esto es obvia; un simple incremento en el registro de 
control grueso tiene un efecto notable en la frecuencia del tono emitido, 
mientras que un incremento en el registro de control fino es apenas 
discernible en el tono producido. Por eso, el registro O es el registro de 
control fino del tono para el canal 1, y el Registro 1 es el registro de 
control grueso de tono para el mismo canal. 

Cuanto más grande sea el número que contengan estos registros, más 
grave será el tono generado en ese canal en particular. 


Registros 8 al 10 


Estos son los llamados registros de control de amplitud del GPS. 
Existe uno para cada canal y cada registro tiene 5 bits. Estos 5 bits les 
permiten contener un valor entre 0 y 31. Sin embargo, si el bit 4 está a 1, 
el canal correspondiente se comportará de forma especial como enseguida 
veremos. Normalmente, el volumen del sonido emitido en cada canal 
dependerá del valor contenido en los bits O a 3. El silencio se consigue con 
el valor 0 y el sonido más fuerte se obtendrá cuando el valor sea 15. Si el 
bit 4 está puesto a 1, entonces la amplitud del sonido generado en ese 
canal se controla por una de las envolventes de volumen propias del GPS, 
en vez de estar controlado por los 4 bits más bajos del registro de control 
de amplitud. Después examinaremos con gran detalle estas envolventes de 
volumen. El registro 8 controla el volumen del canal 1, el registro 9 
controla el canal 2 y el registro 10 controla la amplitud del canal 3. 

Pero no es suficiente indicar una amplitud y activar un determinado 
canal para que el GPS reproduzca una nota seleccionada. La generación 
de un «sonido en un determinado canal depende del estado en que se 


encuentren ciertos bits del registro 7. Este es el registro de control 
del GPS. 


Registro 7 


7[s[st+/312]1]0] 


a ad 
activa tono canal 1 
activa tono canal 2 
activa tono canal 3 
activa ruido canal 1 
activa ruido canal 2 
activa ruido canal 3 
control E/S. DEJAR A CERO 


| 


Los bits 6 y 7 de este registro conciernen únicamente al control de las 
entradas/salidas del GPS. En el Amstrad, aparecen de alguna manera 
encargados del teclado. Por ejemplo, si en un descuido dejas el bit 6 
puesto a 1, el teclado permanecerá totalmente muerto y aislado del orde- 
nador. Si estás en modo interactivo, la única forma de salir de esa 
situación es apagar el ordenador. Si esto tiene lugar en el transcurso de un 
programa, puedes tener preparadas algunas instrucciones para desactivar 
el bit; pero sugiero que lo mejor es dejar los bits 6 y 7 permanentemen- 
te a 0. 


Bits 0 a 2 


Estos 3 bits controlan la generación de tonos en los canales 1, 2 y 3. Si. 
un bit permanece desactivado (a cero), entonces se generará un tono en el 
canal correspondiente, asumiendo que el registro de control de amplitud 
de ese canal contiene un valor apropiado. De esta forma, para que el canal 
l emita una nota, tendrán que llevarse previamente a cabo los siguientes 
pasos: 


1. Los registros O y 1 contendrán el valor correspondiente al tono 
elegido. 

2. Se guardará en el registro 8 el volumen adecuado. 

3. El registro 7 deberá contener $¿X00111110. 


Cuando un bit de un canal dado está puesto a cero de esta forma, se 
dice que el canal referido está ACTIVADO. Si el bit está puesto a 1, no se 
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emitirá ningún tono y se dirá que el canal está DESACTIVADO para 
producir tonos. 

Si ponemos los 3 bits a cero, conseguiremos que los tres canales emitan 
tonos simultáneamente. 


Bits 3a 5 


Estos son los denominados bits de activación de ruido, y son los 
responsables de controlar si aparecerá o no ruido blanco en uno cualquie- 
ra o en los tres canales. Dentro de un momento hablaremos de ruido. Al 
igual que antes, si uno de estos bits está puesto a O provocará que apa- 
rezca ruido blanco en un canal determinado. El volumen del ruido coinci- 
dirá con el que indique el registro de control de amplitud (registro 8 al 10) 
de ese canal. El ruido de un canal permanecerá desactivado si su bit 
correspondiente está puesto a 1. 

Es posible emitir a un mismo tiempo y en un mismo canal una nota y 
un ruido. Esto se consigue sencillamente poniendo a O los bits de tono y 
ruido para ese canal. Sin embargo, no es posible tratar por separado el 
volumen del ruido y el del tono, ya que el registro de control de amplitud 
es el mismo para ambos. Así pues, los ruidos y tonos que se produzcan 
simultáneamente en un canal serán emitidos a un mismo volumen. Por 
supuesto, el ruido también puede ser generado bajo el control de una 
envolvente de amplitud, del mismo modo que se hace para un tono. 


Generación de ruido 


El generador programable de sonido es capaz de producir ruido blanco 
en una amplia banda de “frecuencia”, si es que este término se puede 
aplicar al ruido. Un ruido bajo en frecuencias producirá un sonido “impe- 
tuoso”, mientras que valores elevados producirán una especie de “siseo”. 
La producción de ruidos emitidos por los tres canales es controlada por 
un solo registro. 


Registro 6 


Este es el registro de control de ruido producido. Se trata de un 
registro de 5 bits, ofreciendo la posibilidad de valores entre O y 31 para el 
ruido a generarse. El valor 31 dará el ruido más bajo en frecuencias, 
mientras que O dará el ruido más alto. Como ya mencioné, sólo dispone- 
mos de un único registro de control de ruido para los tres canales; por eso 
el ruido emitido por cada canal no puede controlarse individualmente. 

Finalmente, consideremos las envolventes que residen en el GPS. Estas 
son todas las envolventes de amplitud y pueden ser de gran utilidad. El 


resto de los registros del GPS se refieren todos ellos al control de envol- 
ventes y a las E/S. 


Envolventes 


Existen dos parámetros que describen las envolventes de amplitud que 
ofrece el GPS. Estos son el número de envolvente, que describe “la forma” 
de la envolvente, y el período de envolvente, que es una valoración de la 
cantidad de tiempo que llevará emitir el sonido. 


Registro 13 


El contenido de este registro especifica la forma de la envolvente que se 
aplicará a cualquiera de los sonidos con envolvente que se emitan. 


Contenido del registro 13 Forma de la envolvente 
1 
—_—+> 
PE 
Vi 
—_—+S 
PE 
XNN 
PE 
10 A 
A MMNN<—áAL5L50 
PE 
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11 


j 


PE 


13 


14 


El 


PE indica el período de la envolvente, y su duración está controlada 
por el valor contenido en los dos registros del período de envolvente, R11 
y R12. Juntando ambos registros, se forma un valor de 16 bits, del cual 
R11 es el byte bajo y R12 es el byte alto. Cuanto más alto sea el valor de 
estos registros, mayor será la duración de la envolvente. Cuanto mayor sea 
el período de la envolvente, será más lento el cambio de amplitud durante 
la emisión de la nota. 

El que una envolvente se aplique a un tono emitido, a un canal 
determinado, o a un ruido o lo que sea, dependerá del estado del bit 4 del 
registro de control de amplitud del canal correspondiente. Todos los 
canales que tengan este bit puesto a 1 emitirán tonos o ruido con la 
misma envolvente. Esto se debe al hecho de que solamente hay un registro 
de forma de la envolvente y otro registro del período de envolvente. 


Técnicas de sonido 
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Es fácil convertirse en maestro de las técnicas básicas de empleo 
directo del GPS. Por lo general, necesitarás hacer algunos ensayos y 
cometer algunos errores antes de que comiencen a salir buenos efectos 
sonoros del altavoz de tu Amstrad. Si quieres dejar desactivados uno o 
más canales, es cierto que puedes poner a cero el registro de control de 
amplitud apropiado. Probablemente no sea ésta la mejor manera de hacer 
las cosas, aunque sólo sea porque esto elimina a la vez tanto el tono como 


el ruido del canal. En general es mejor utilizar el registro 7 para controlar 
la generación de sonido. El registro 7 puede contener £X00111111, mien- 
tras que los demás registros permanecen inicializados; de esta forma los 
tonos y ruidos de todos los canales quedan desactivados. Después, cuando 
quieras producir un sonido, no tienes más que poner a O los bits apropia- 
dos del registro 7 para activar ruido, tono o ambos, en el canal deseado. 

Mientras se está generando un sonido, puedes alterar el contenido de 
los registros. De esta forma se puede desvanecer gradualmente un sonido, 
bajo control de la CPU, o puedes alterar su tono poco a poco. De hecho, 
ésta es la forma en que el sistema operativo del Amstrad genera sus 
envolventes de tono y de volumen: alterando los registros del GPS bajo 
control de las interrupciones. Debe observarse, sin embargo, que una vez 
que un canal comienza a emitir sonido continuará haciéndolo hasta que el 
registro 7 sea convenientemente alterado. Esto es de gran utilidad, especial- 
mente trabajando con las envolventes del GPS, ya que la CPU puede 
olvidarse momentáneamente del generador de sonido, y hacer algo más 
importante. 

Me gustaría terminar este capítulo con unos cuantos ejemplos de 
efectos de sonido. Estos están producidos por las propias envolventes del 
GPS y sirven para mostrar parte de lo que hay disponible. Si deseas 
producir efectos más exóticos, puedes elaborar sencillos bucles con rutinas 
en código máquina que actualicen los registros del GPS mientras se está 
emitiendo otro sonido. Sin embargo, creo que estos ejemplos te darán un 
punto de partida. Para escucharlos es suficiente inicializar los registros 
apropiados del GPS con los valores dados, siendo el registro 7 el último 
en cargar. 


Explosión 
Registro Val ar 
6 ZO 
8 16 
LL 255 
2 30 
13 1 
7 2xX00110111 


Locomotora de vapor 


Registro Valor 
6 FO 
8 16 
11 255 
12 O 
13 14 
7 2X00110111 
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Tal vez te guste más si intentas cambiar el tipo de ruido, alterando el 
contenido del registro 6. 


Rayo laser 
Registro Valor 
o 255 
1 o 
8 16 
11 100 
12 o 
13 10 
7 YxXoo111110 
¡Boing! 
Registro Valor 
0 (9) 
1 9 
8 16 
11 191 
12 10 
13 1 
7 4xoc111110 
Disparo 
Registro Valor 
6 30 
8 16 
11 255 
12 2 
13 1 
7 4«xoo110111 


En todas estas rutinas se entiende que los registros no mencionados 
están todos puestos a cero. 


Rutinas 


de manipulación 


Control 


del cassette 


Existe una variedad de rutinas en el Amstrad que permiten al progra- 
mador de código máquina acceder con mayor facilidad a las rutinas 
encargadas de las operaciones de cassette. Con todas las facilidades que 
ofrece el BASIC podrías preguntarte para qué molestarse en acceder a esas 
rutinas desde programas en código máquina. Bueno, es muy útil para 
cuando estés escribiendo programas que requieran grabar datos en la 
cinta. Además, no te vendrán mal algunos conocimientos sobre las rutinas 
de cassette para producir formatos individualizados de cassette para pro- 
tección en software O para ficheros especiales de datos a los que sólo 
puedan acceder determinados programas. 

De cualquier modo, empezaremos con un par de llamadas firmware 
bastante útiles que puedes usar sin inicializar los registros. 


del motor 


Una característica algo irritante del sistema de cassette del Amstrad es 
el modo en que la tecla PLAY se inhibe, excepto en operaciones de 
entrada, salida, o de catalogación. Esto significa que para hallar una parte 
en blanco en la cinta es necesario catalogar la cinta mediante la orden 
CAT, impidiéndote realizar cualquier otra cosa mientras el cassette 
avanza. 
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Pueden usarse dos rutinas ROM para controlar el motor del cassette; 
CALL 8£BC6E pondrá en marcha el motor y CALL £¿BC71 lo desconec- 
tará. Una vez conectado el motor, habrá una pequeña pausa antes de que 
aparezca la expresión “Ready”. ¡No te asustes! Se trata sólo del sistema 
operativo asegurándose de que la cinta ha alcanzado una velocidad unifor- 
me de avance antes de devolver el control. 

La rutina llamada en la dirección £¿BC9B también es bastante útil, ya 
que es el código máquina que realiza la función equivalente a la orden 
CAT del BASIC. Si utilizas esta última llamada, DE debe apuntar a un 
área de memoria de 2048 bytes que la rutina firmware pueda usar como 
espacio de trabajo. 


CAT 


No debe confundirse con la orden de BASIC del mismo nombre; esta 
rutina en código máquina cargará la cabecera de un fichero de la cinta. 
Una vez en memoria, los distintos detalles sobre el fichero, como, por 
ejemplo, la longitud, dirección de comienzo, etc., están disponibles para 
consulta. 


Requisitos de entrada: Desde BASIC o código máquina, simplemente 
llama a la rutina mediante la orden CALL. Debe 
haber un espacio temporal de memoria disponi- 
ble. (Véase Comentarios.) 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 12 bytes más 64 bytes para la reserva de me- 
moria. 
10 3 e. CABECERA +. 
9D08 20 ORG 40200 
9D08 3E2C 30 LD A, $2C 3 Codigo de sincronismo esperado 
9DOA 21409C 40 LD HL,40000 3 Registro de memoria en 40000 
9DOD 114000 50 LD DE, 44 3 Numero de bytes a cargar 
9D1O CDA1BC 60 CALL *4BCA1 3 Los carga 
9D13 C9 70 RET 5 Terminado 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 CLS 

20 CALL 40200 

30 nombre$=" " : buffer=40000 
FOR I=buffer TO buffer+15 


SO nombre$=nombre$+CHR$ (PEEK(1)): NEXT 
60 inicio=PEEK (buffer+21 ) +256x*PEEK (butfe 


O 
O 
O 
O r+22) 


¡ 
Ú 
¡ 
1 
1 
1 
¡ 40 
Ú 
¡ 
Ú 


oo o. oO 


70 longitud=PEEK (but+tfer+24)+256*PEEK (buf 
fer+25) 

80 PRINT nombre$ : PRINT "Longitud :.... 
sao “5longitud 

90 PRINT "Comienzo en direccion : da 
¿inicio 

100 PRINT:PRINT 

110 GOTO 20 


Oo Oo.Oo 
Oo o Oo 


Comentarios 


Esta rutina es relocalizable, siempre que la dirección de la zona tempo- 
ral de memoria se altere si es necesario. En esta rutina, HL se usa para 
transferir la dirección de la zona temporal de memoria a la rutina de 
firmware. En la rutina listada se ha usado 40000 como dirección de esta 
memoria temporal. DE contiene el número de bytes que la rutina de 
firmware va a cargar, y que será siempre 64 para el encabezamiento. 

El registro A debe contener un valor llamado byte de sincronismo, a la 
entrada de la rutina del firmware, que diferencia efectivamente el encabeza- 
miento de un bloque de datos dentro de un fichero. El encabezamiento 
para un bloque de datos es £:16 y para un bloque normal de encabeza- 
miento es 82C. Si el byte de sincronismo de un bloque de información 
que esté en la cinta no corresponde al byte de sincronismo del registro A, 
tal información será ignorada. 

Cuando la rutina firmware ha recibido el encabezamiento, regresaremos 
al BASIC. Sin embargo, también puede ocurrir que la vuelta al BASIC se 
produzca por una condición errónea de cualquier tipo. Aquí no hemos 
utilizado este tipo de información pero tal vez quieras extender la rutina 
anterior añadiendo mensajes de error, así que vamos allá. 

Si la operación de carga ha dado resultado, el indicador de acarreo se 
pondrá a 1. De otro modo, C=0. En este caso el registro A contiene un 
número de error. 


A=0: ESC ha sido pulsada para terminar la operación. 


A=1: Error de sobrecarga. Esto ocurre si hay más datos disponibles 
en el cassette de los especificados en el registro DE cuando la rutina de 
S£ÚBCA1 ha sido llamada. 


A=2: Indica un error PRC. La prueba de redundancia cíclica es el 
sistema mediante el cual el sistema operativo puede determinar si se ha 
cometido un error en la lectura actual de un byte de datos desde el 
cassette. Si ocurre esto, generalmente indica que uno o más de los bytes 
leídos desde el cassette están alterados. 
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Una vez que tenemos el bloque de encabezamiento en la memoria, nos 
queda por hacer su decodificación. En esta rutina sólo buscamos el nom- 
bre, longitud total y dirección de comienzo del fichero. El resto de los 
bytes del encabezamiento no nos interesan aquí. Sin embargo, si eres 
curioso, el manual del firmware te proporcionará los detalles que precises; 
también podrás encontrarlos en Programación avanzada del Amstrad publi- 
cado por esta casa. 


Nombre del fichero: Está almacenado en los 16 primeros bytes del 
encabezamiento, y ésta es la razón de que el nombre de un fichero para 
ficheros de cassette sólo pueda tener una longitud de 16 caracteres. Si el 
nombre es más corto de 16 letras, entonces se completan los 16 caracteres 
rellenándose con códigos nulos (CHRS(0)). 


Dirección de comienzo: Se almacena en los bytes 21 y 22 del encabeza- 
miento. El bloque se numera de O en adelante. Esta dirección desde la que 
los datos fueron grabados, se almacena en el formato usual del Z-80 con el 
byte bajo en primer lugar. Sin embargo, hay un punto a considerar. Esta 
sólo es la dirección de comienzo de ese bloque de datos en particular y, 
por tanto, sólo será la dirección de comienzo de todo el fichero si es la del 
primer bloque de datos. Para bloques posteriores ésta será la dirección de 
comienzo de ese bloque de datos en particular. El número del bloque, que 
puede ser de utilidad para estos casos, se almacena en el byte 16 del 
encabezamiento. 


Longitud del fichero: Es la longitud total del fichero grabado. Se 
almacena en los bytes 24 y 25 del encabezamiento, de nuevo con el byte 
bajo almacenado en primer lugar. 


El siguiente programa en BASIC utiliza la rutina CAT para conseguir 
información más detallada a partir de las entradas del encabezamiento 
mencionadas anteriormente. Yo lo encuentro particularmente útil para 
revisar mis programas en código máquina, que tiendo a almacenar como 
ficheros que contienen únicamente bytes. De paso te diré que esta rutina 
no está diseñada para facilitarte el acceso a los programas ajenos. Es 
ilegal, así que no lo hagas. He considerado que parte del programa en 
código máquina está en la dirección 40200 y que la zona temporal de 
memoria para los datos introducidos está en la dirección 40000. El progra- 
ma, según se ejecuta, espera a los distintos encabezamientos y escribe 
algunos detalles en la pantalla. Pulsando ESC terminará el programa. 


] I 
O; 10 buffer=40000 O 
20 CALL 40200 
O: 30 nombres+=" " O 
' ' 


40 FOR I=buffer TO buffer+15 


50 nombre$=nombres$+CHR+ (FEEK(1)) 

55 NEXT I 

60 inicio=PEEK (buffer+21)+256*FEEF (buf+te 
r+22) 

70 longitud=PEEK (buf fer+24) +254*FEEK (buf 
fer+25) 

80 PRINT nombres$ 

85 PRINT "Longitud : "¿longitud 

90 FRINT "Direccion inicial :<"3inmicio 

100 PRINT:PRINT 

110 GOTO 20 


ooo yoo 
Oo OoOo. Oo 


Cuando tengas detalles acerca del resto del encabezamiento, podrás 
ampliar fácilmente esta rutina. Sin embargo, ésta te servirá para muchas 
aplicaciones. 


ESCRIBCASS (ESCRIBe en CASSette) 


Es una rutina para escribir un fichero de datos con nombre en la cinta. 
Es realmente una versión en código máquina de la orden SAVE, aplicada 
a ficheros en binario, por lo que no daré requisitos de entrada en BASIC. 
También daré un par de rutinas lectoras, que te permitan guardar y cargar 
ficheros de datos desde código máquina. 


Requisitos de entrada: YX apunta a un bloque de encabezamiento de 64 
bytes, como se muestra en los Comentarios de esta 
rutina. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 37 bytes. 

10 5; ** ESCRIBCASS +** 
9D08 20 ORG 40200 
9D0O8 DD212D9D 30 LD IX, CABEZ 
9DOC — DDES 40 PUSH IX 
9DOE 212D9D 50 LD HL, CABEZ 
9D11 114000 60 LD DE, 64 
9D14  3E2C 70 LD A, *2C 
9D16 CD9EBC 80 CALL *BC9E 
9D19 DDE1 90 POP. IX 
9D1B— DD6E1S 100 LD L, (1X+21) 
DIE DDó6616 110 LD H, (1X+22) 
9D21 DDSE13 120 LD E, (1X+19) 
9D24 DDS5614 130 LD D, (1X+20) 
9D27 3El6 140 LD A,t16 
9D29 CD9EBC 150 CALL *BC9E 
9D2C  C9 160 RET 
9D2D 54455354 170 CABEZ DEFM "TEST" 
9D31 180 DEFS 12 
9D3D 01 190 DEFB 1 
9D3E 200 DEFS 2 
9D40 EB0O3 210 DEFW 1000 
9D42 6901 220 DEFW 361 
9D44 00 230 DEFB O 
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Pruébalo con esto: 


CALL 40200 


Comentarios 


El bloque de encabezamiento mencionado es una versión simplificada 
del utilizado por el sistema operativo cuando lleva a cabo operaciones de 
grabación y carga en BASIC. Es importante que observes que, aunque los 
ficheros guardados por ESCRIBCASS aparecerán con la orden CAT del 
BASIC, no serán cargados si usas la orden LOAD del BASIC. El fichero 
grabado por ESCRIBCASS consiste en un encabezamiento seguido de un 
bloque de datos. La estructura de un bloque de encabezamiento deberá ser 
de la forma siguiente: 


Bytes 0 a 15 NOMBRE DEL FICHERO+CHR$(0)”s hasta completar 15 
Bytes 19 y 20 LONGITUD DEL FICHERO, primero el byte bajo. 
Bytes 21 y 22 DIRECCION DE COMIENZO, primero el byte bajo. 
Bytes 24 y 25 LONGITUD DEL FICHERO, primero el byte bajo. 


El resto de los bytes del encabezamiento deberá ponerse a cero. Como 
ejemplo más detallado, examina el siguiente bloque de encabezamiento, 
que guardará en la cinta un bloque de datos de 1000 bytes de longitud, 
comenzando en la dirección 361, y con nombre TEST para el fichero. 


CABECERA DEFM “TEST" 

DEFS 12 
DEFB O 
DEFB o 
DEFB 0 
DEFW 1000 
DEFW 361 
DEFW 00 
DEFW 1000 


El resto del bloque se pone a cero. Advierte que, una vez que se llama a 
la rutina ESCRIBCASS, el fichero se graba inmediatamente en la cinta, sin 
los habituales bytes de sincronismo. Estos podrían añadirse fácilmente si 
fueran necesarios para una aplicación en particular. La única nueva rutina 
ROM utilizada es CAS WRITE, accesible en la dirección 8¿BC9E. A la 
entrada, HL contiene la dirección de los datos que se van a escribir, DE la 
longitud y A el byte de sincronismo. La usamos dos veces, una vez para 
meter el encabezamiento en la cinta y otra para meter los datos en la 
cinta. 

Una vez hayamos escrito un fichero en la cinta, es conveniente poder 
leerlo de nuevo. Te muestro dos rutinas para ello, LEECASS y, haciendo 
alardes de imaginación, LEECASS2. Esta última es sólo una versión más 
sencilla de usar que LEECASS. 


LEECASS 


(LEE del CASSette) 


Esta rutina lee en la cinta los ficheros escritos con ESCRIBCASS. 


Requisitos de entrada: 


Condiciones de salida: 


Longitud: 


9D08 
9D08 
9DOB 
9DOE 
9D10 
9D13 
9D16 


9D19 
ODIA 
9D1B 


9D1D 
9D1E 
9D1F 
9D20 
9D22 


9D24 
9D28 
9D2B 
9D2E 
9D32 
9D35 
9D38 
9D3A 
9D3D 
9D3E 
9D42 
9D4E 
9D50 


Comentarios 


114000 
21509D 
3E2C 

CDA1BC 
21509D 
113E9D 


1A 
BE 
Z0EB 


23 
13 
1A 
FEOO 
Z0FS5 


DD213E9D 
DDéE10 
DD4611 
DD21509D 
DDSE18 
DD5S6419 


54455354 


409C 


Véase Comentarios. 


Todos los registros son alterados. 


54 bytes, excluyendo las tablas para NOMBRE y 


CABEZA. 

105 ** LEECASS e 
20 ORG 40200 

30 CARGA LD  DE,64 

40 LD  HL,CABEZ 
50 LD  A,%2C 

60 CALL *BCA1 

70 LD  HL,CABEZ 
8o LD  DE,NOMBRE 
90; 

100 BUCLE LD  A,(DE) 
110 CP (HL) 

120 JR  NZ,CARGA 
130 ; 

140 INC HL 

150 INC DE 

150 LD A, (DE) 
170 cr o 

180 JR  NZ,BUCLE 
190 5 

200 LD IX,NOMBRE 
210 LD  L,(IX+16) 
220 LD  H,(IX+17) 
230 LD  IX,CABEZ 
240 LD E, (IX+24) 
250 LD  D,(IX+25) 
260 LD  A,$15 
270 CALL ABCA1 

280 RET 
290 NOMBRE DEFM "TEST" 
300 DEFS 12 
310 DEFW 40000 
320 CABEZ DEFS 64 


Numero de bytes del encabezamiento 
Los pone aqui 

Byte para un sincronismo correcto 
Carga la cabecera 

DE y HL apuntan hacia el 

nombre del fichero y hacia 

el nombre deseado 

Examina cada caracter 


Si no es el mismo, 
carga el siguiente encabezamiento 


Cero indica el final del nombre 
Si no es el final, pasa al 
siguiente caracter 

Extrae la direccion de carga 


Extrae la longitud de la cabecera 


Byte de sincronismo 


Direccion de carga 
64 ceros 


Esta rutina requiere la presencia de dos tablas de datos, que he 
llamado NOMBRE y CABEZA. La tabla CABEZA no es más que un 
bloque de 64 bytes en los que puede cargarse un encabezamiento. NOM- 
BRE, sin embargo, debe ser organizado por el programador. Como sugie- 
re su nombre, contiene el nombre del fichero que quieras leer. También 
recoge la dirección en la que se va a cargar el fichero. Tiene una longitud 
de 18 bytes. 


Bytes 0 a 15: Contienen el nombre del fichero, rellenándose hasta 
completar los 16 bytes con CHR$(0). 
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Bytes 16 y 17: La dirección de carga del fichero se almacena en estas 
dos posiciones, con el byte bajo en primer término. 


Dada su sencillez, esta rutina plantea una serie de inconvenientes. 
Surgen en cuanto a la imposibilidad de interrumpir la búsqueda de un 
nombre de fichero, por la ausencia de mensajes mientras la búsqueda 
continúa, o cuando se descubre un error en la longitud de un fichero, 
como casos principales. Vamos a ver primero este último problema. 

El número de bytes cargados por esta rutina se toma del encabeza- 
miento cuyo nombre coincide con el del fichero que nos interesa. Puede 
surgir un problema en cuanto que los bytes cargados en el espacio desig- 
nado como inicial para la dirección de carga pueden superponerse a 
programas u otros datos que en principio no se suponían allí. Desde luego 
esto no ocurrirá si tienes cuidado al diseñar los programas, pero puede 
producirse. Si te interesa evitar este posible accidente, puedes seguir las 
siguientes instrucciones: 


1. Designa una dirección concreta en la memoria como término del área 
en el que puedan cargarse los datos leídos en la cinta. 


2. Cuando se lea el encabezamiento de un fichero, añade su longitud a la 
que contiene la tabla NOMBRE en la entrada “dirección de carga”. Si 
el resultado excede de la dirección mencionada en 1, no lo cargues. 


LEECASS2 no incluye esta característica, pero podrás añadirla fácil- 
mente utilizando los detalles que te he dado. 


LEECASS2 
Versión modificada de LEECASS. 


Requisitos de entrada: Véase comentarios. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 215 bytes, excluyendo NOMBRE y CABEZA. 
10 5 e LEECASSZ ex. 

9D08 20 ORG 40200 

9DO08 DD21C99D 30 LD IX, BUSCA 

9DOC CD619D 40 CALL ESCR 

9DOF DD21B39D 50 CARGA LD IX, OK 

9D13 CD619D 60 CALL ESCR 

9D1G6 CD18BB 70 CALL +*BB18 

9D19 FE73 8o cP 115 

9D1IB 2803 90 JR Z,SI 

9D1D FES3 100 cP 83 

QD1iF CO 110 RET  NZ 

9D20 114000 120 SI LD DE, 64 3 Numero de bytes del encabezamiento 

9D23 21F39D 130 LD HL,CABEZ 5 Los pone aqui 

9D26 3E2C 140 LD Ay *$2C 3 Byte para un sincronismo correcto 


9D28 
9D2B 
9D2D 
9D3O 


9D33 
9D34 
9D35 


9D37 
9D38 
9D39 
9D3A 
9D3C 


9D3E 
9D42 
9D45 
9D49 
9D4C 
9D4F 
9D53 
9D56 
9D59 
9DS5B 
9DSE 
9D60 
9D61 

9D63 
9D566 

9D68 
9D6B 
9D6D 
9D7O0 
9D72 
9D75 
9D77 
9D78 
9D7A 
9D7D 
9D7F 
9D81 

9D83 

9D87 
9D8A 

9D8c 
9D8F 

9D9O 
9DB2 
9DB3 

9DC8 
9DCO 
9DD4 
9DDS 
9DEO 
QDE1 

9DES 
9DF1 
QDF3 


Comentarios 


CDA1BC 
3056 

21F39D 
11E£19D 


1A 
BE 
20D8 


23 
13 
1A 
FEOO 
20F5 


DD21D59D 
CD619D 
DD21E19D 
DD6E10 
DD6611 
DD21F39D 
DDSE18 
DD5619 
3E16 
CDA1BC 
3023 

c9 

DDES 
CD54BB 
3EOD 
CDSABB 
JEOA 
CDSABB 
DDE1 
DD7E0O0 
FEOO 

ca 

DDES 
CD5DBB 
DDE1 
DD23 
18EF 
DD21909D 
CD619D 
3E07 


54656E67 
00 
436F6E74 
00 
42737363 
00 
43617267 
00 
34435354 


409C 


150 
150 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
$610 
620 
630 
640 
650 
660 
670 
6480 
690 
700 
710 
720 
730 


5 
BUCLE 


ESCR 


BUCLES 


ERR 


ERROR 


oK 


BUSCA 


ENTRA 


NOMBRE 


CABEZ 


CALL 
JR 
LD 
LD 


LD 


cP 
JR 


DEFS 


*ECA1 

NC, ERR 
HL, CABEZ 
DE, NOMBRE 


A, (DE) 
(HL) 
NZ, CARGA 


HL 

DE 

A, (DE) 

o 

NZ, BUCLE 


IX,ENTRA 
ESCR 

IX, NOMBRE 
L, (IX+16) 
H, (1X+17) 
IX,CABEZ 
E, (1X+24) 
D, (1X+25) 
A,H16 
$BCA1 

NC, ERR 


1X 
BUCLES 
IX, ERROR 
ESCR 

A,7 
ABBSA 


Carga la cabecera 

Acarreo a cero = error 

DE y HL apuntan hacia el 
nombre del fichero y hacia 
el nombre deseado 

Examina cada caracter 


Si no es el mismo, 
carga el siguiente encabezamiento 


Cero indica el final del nombre 
Si no es el final, pasa al 
siguiente caracter 


Extrae la direccion de carga 


Extrae la longitud de la cabecera 


Byte de sincronismo 


"Tengo que informarte que hay error" 


[o] 


"Continua la busqueda?" 


o 


"Buscando... 


o 


"Cargando..." 


0 
"TEST" 


Direccion de carga 
64 ceros 


Como antes, NOMBRE contiene el nombre del fichero que quieras leer 
y su dirección de carga. CABEZA es un bloque de 64 bytes para el 
almacenamiento temporal de los encabezamientos leídos en la cinta. Ob- 
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servarás (espero) que hemos usado una variación del programa ECADEN 
para escribir mensajes. Al llamar a la rutina aparecerán los mensajes: 


"BuscandO0....." 
“Continua la busqueda 2?" 


En ese momento, contestando cualquier cosa menos “S” o “s”, la rutina 
terminará. Esta pregunta se formulará cada vez que se lea un encabeza- 
miento que no sea el del archivo que te interese. Los errores de lectura 
también se señalan mediante mensajes apropiados. 

La última rutina para manejo de cassette que solemos necesitar es una 
función de comprobación. Esto lo realiza VERIFICA. 


VERIFICA 


Esta rutina contrasta un fichero de bytes de la cinta con un área de 
memoria del ordenador. Ello te permitirá comprobar que un área de 
memoria ha sido correctamente grabada antes de almacenar otra cosa en 
ella. 


Requisitos de entrada: Véase Comentarios. 


Condiciones de salida: Todo alterado. 


Longitud: 221 bytes, excluyendo NOMBRE y CABEZA. 
10 5 e. VERIFICA *. 
9D08 20 ORG 40200 
9D08 DD21C09D 30 LD IX, BUSCA 
9DOC — CD619D 40 CALL ESCR 
9DOF DD21AA9D 50 CARGA LD IX, OK 
9D13 CD619D 60 CALL ESCR 
9D16 CD18BB 70 CALL *BB18 
9D19 FE73 80 cP 115 
9D1B 2803 90 JR Z,SI 
9D1ID FES3 100 cP 83 
9D1F CO 110 RET  NZ 
9D20 114000 120 SI LD DE, 64 3 Numero de bytes del encabezamiento 
9D23 21ED9D 130 LD HL,CABEZ 3 Los pone aqui 
9D26 3E2C 140 LD A, $2C 3 Byte para un sincronismo correcto 
9D28 CDA1BC 150 CALL *BCA1 j Carga la cabecera 
9D2B 30565 160 JR NC, ERR 3 Acarreo a cero = error 
9D2D 21ED9D 170 LD HL,CABEZ 35 DE y HL apuntan hacia el 
9D30O 11DB9D 180 LD DE,NOMBRE 3 nombre del fichero y hacia 
190 3 el nombre deseado 
9D33 1A 200 BUCLE LD A, (DE) 3 Examina cada caracter 
9D34 BE 210 cP (HL) 
9D35 20D8 220 JR NZ,CARGA 3 Si no es el mismo, 
230 ; carga el siguiente encabezamiento 
9D37 23 240 INC HL 
9D38 13 250 INC — DE 
9D39 1A 260 LD A, (DE) 
9D3A FEOO 270 cP O 3 Cero indica el final del nombre 
9D3C  20F5 280 JR NZ,BUCLE 3 Si no es el final, pasa al 
290 5 siguiente caracter 
9DJE DD21CC9D 300 LD IX,ENTRA 


9D42 
9D45 
9D49 
9D4C 
9D4F 
9D53 
9D56 
9D59 
9D5B 
9DSE 
9D60 
9D61 
9D63 
9D66 
9D68 
9D6B 
9D6D 
9D70 
9D72 
9D75 
9D77 
9D78 
9D7A 
9D7D 
9D7F 
9D81 
9D83 
9D87 
9D8A 
9D8c 
9DSF 
9D90 
9DA? 
9DAA 
9DBF 
9DCO 
9DCB 
9DCc 
9DDA 
9DDB 
9DDF 
9DEB 
9DED 


Comentarios 


CD619D 
DD21DB9D 
DD6éE10 
DD6611 
DD21ED9D 
DDSE18 
DDS619 
3E16 
CDA4BC 
3023 

co 

DDES 
CD54BB 
3EOD 
CDS5ABB 
3EO0A 
CD5ABB 
DDEi1 
DD7E00 
FEO0O 

ce 

DDES5 
CD5DBB 
DDE1 
DD23 
18EF 
DD21909D 
CD519D 
3E07 


4572726F 
00 
436F6E74 
00 
42737363 
00 
56657269 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
s10 
520 
530 
540 
550 
560 
570 
580 
590 
$600 
610 
620 
630 
640 
$650 
660 
670 
680 
690 
700 
710 
720 
730 


ESCR 


BUCLES 


ERR 


ERROR 


ok 


BUSCA 


ENTRA 


NOMBRE 


CABEZ 


DEFS 


ESCR 
IX, NOMBRE 
L, (1X+16) 
H, (1X+17) 
IX, CABEZ 
E, (1X+24) 
D, (IX+25) 
A, $16 

*BCA4 

NC, ERR 


IX 
BESA 

A, 13 
ABBSA 

A, 10 
RBESA 
IX 

A, (1X) 

O 

Z 

IX 

HBBSD 

IX 

IX 
BUCLES 
IX, ERROR 
ESCR 
A,7 
BBSA 


Extrae la direccion de carga 
Extrae la longitud de la cabecera 


Byte de sincronismo 


"Error en la verificacion.” 


o 


"Continua la busqueda?” 


lo) 


"Buscando..." 


o 


“Verificando... 


o 
"TEST" 


.. .. 


Direccion de carga 
64 ceros 


NOMBRE debería constituirse como la rutina LEECASS, con la dife- 
rencia de que los bytes 16 y 17 de NOMBRE deberán contener ahora no 
la dirección de carga, sino la dirección desde la que los bytes fueron 
grabados. Si se detecta alguna diferencia entre el área de memoria y el 
fichero de la cinta, se produce una salida inmediata de la rutina, con un 
mensaje de error para indicar el hecho. La rutina sólo verifica el bloque de 


datos. 


Con esto completamos el capítulo sobre rutinas de manipulación de 
cassette. Para mayor información sobre las rutinas firmware, me remito al 
manual técnico de firmware de Amstrad, que es realmente útil. 
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BASIC 
y código máquina 


En este capítulo veremos un par de rutinas diseñadas para ayudar al 
programador de BASIC, y algunas notas detalladas sobre la ampliación 
del sistema residente, el método para añadir órdenes del BASIC del 
Amstrad. Sin embargo, empezaremos con un par de rutinas que realmente 
no pueden integrarse en ningún otro capítulo de este libro. 


TIEMPO 


La variable del sistema, TIME, una vez calculada, contendrá el espacio 
de tiempo transcurrido desde que el ordenador se conectó. Esto no incluye 
los períodos de tiempo en que las interrupciones fueron prohibidas desde 
el interior de las rutinas en código máquina, así como los períodos de ope- 
raciones de cassette. La variable TIME es un número de 4 bytes, que se 
incrementa 300 veces por segundo. Es, por tanto, muy útil para aplicacio- 
nes de medida de tiempo. Una característica, sin embargo, que echo en 
falta es un método para alterar la variable TIME en cualquier momento. 
Este tipo de orden es muy común en otros aparatos, como el microorde- 
nador BBC (¡cómo oso nombrar tales palabras en estas páginas!) y es muy 
útil cuando el reloj se está utilizando para cronometrar sucesos breves en 
un programa en ejecución. Normalmente tenemos que ejecutar una línea 
como 


T=TIME: GUSUB 1000: PRINT TIME-T 
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mientras que, si pudiéramos poner TIME a cero, sólo diríamos: 


CALL tiempo-a-cero:GOSUB 1000: PRINT TIME 


Con esto se ve más claro lo que intentamos realizar. Esto lo hace la 
siguiente rutina, TIEMPO. 


Requisitos de entrada: 


Desde BASIC, CALL dirección, bajo, alto, donde 
bajo son los 16 bits inferiores dentro del valor 
total de 32 bits y alto son los 16 bits superiores 
del valor total de 32 bits. 

Desde otra rutina en código máquina, IX apunta 
a un bloque de parámetros y A contiene el 


valor 2. 
Z) 


Ms 


bajo 


CI A 


(09 —» [bajo] 


Bloque de parámetros de TIEMPO 


Condiciones de salida: 


Longitud: 


9D08 
9D08 
9DOA 
9Doc 
9DOE 
9D10 
9D13 
9D16 
9D19 
9D1cC 
9D1F 
9D20 
9D23 
9D26 
9D29 
9D2A 
9D2C 
9D2F 
9D31 
9D34 
9D36 
9D39 


FEOO 
2814 
FEO2 
203C 
DDS5SE0O 
DD5601 
DD6E02 
DD6603 
CD10BD 
c9 
210000 
110000 
CD10BD 
c9 
DDES 
CD54BB 
3EO0OD 
CDSABB 
3EO0A 
CDS5SABB 
DDE1 


100 
110 
120 
130 CERO 
140 
150 
150 
170 ESCR 
180 
190 
200 
210 
220 
230 


Todos los registros son alterados. La rutina fina- 
lizará si se introduce en la misma un número 
erróneo de parámetros. 


98 bytes. 


*e TIEMPO *x 
ORG 40200 
cP o 
JR Z,CERO 5 Si mo hay parametros, salta a cero 
cr 2 
JR NZ,ERR 3 Si mo hay dos parametros, error 
LD E, (1X+0) 
LD D, (IX+1) 5 Parte superior de TIME 
LD L, (1X+2) 
LD H, (IX+3) 3 Parte inferior de TIME 
CALL *BD1O 3 Fija el valor de TIME 


LD HL, O 
LD DE, O 
CALL $*BD10 35 Pone a cero la variable TIME 


PUSH IX 

CALL *BB54 
LD  A,13 
CALL *BBSA 
LD  A,1o 
CALL *BBSA 
POP IX 


9D3B DD7E0O 240 BUCLE LD A, (IX) 


9D3JE FEOO 250 cr o 

9D40 C8 260 REF 2 

9D41 DDES 270 PUSH IX 

9D43 CD5DBB 280 CALL *+BBSD 
9D46 DDE1 290 FOP. IX 

9D48 DD23 300 INC — 1X 

9D4A 18EF 310 JR BUCLE 
9D4C DD21599D 320 ERR LD 1X, ERROR 
9D50 CD2A9D 330 CALL ESCR 
9D5S3 3E07 340 LD A, 7 

9D5S5S CDSABB 350 CALL HEBSA 
9D58 C9 360 RET 

9D59  4E756D65 370 ERROR DEFM "Numero erroneo de parametros." 
9D76 380 DEFS 1 
Comentarios 


El hecho de que TIME sea una variable de 32 bits hace que sea más 
bien difícil introducir este valor mediante una sentencia CALL estándar. 
Por eso el nuevo valor TIME se introduce en dos partes en la rutina en 
código máquina. Así, para colocar TIME en 100, deberemos ejecutar una 
orden como: 


CALL direccion, 100,0 


con “bajo” en primer lugar. 

Los bytes del listado son para la dirección 41000, pero la rutina puede 
relocalizarse sin mucho problema. Yo suelo poner la variable TIME a 
cero, por lo que he decidido hacer de ello un caso especial. CALL 
dirección, por sí misma, hará que la variable TIME se coloque a cero. 
Proporcionaré algunas notas acerca de los valores que deben transferirse 
como parámetros. El valor de TIME para cualquier combinación de 
“alto” y “bajo” será: 


TIME=bajo + (45536 * alto) 
Asi, la orden 


CALL direccion, 0,2 
colocará TIME a (2x65536)+0, que es 131072. Desde luego, al asignar a la 


variable TIME un valor muy alto, conseguiremos llegar al tope de capaci- 
dad y la variable comenzará otra vez con el valor 0. 


Restaurando 
Todo programa mal hecho se parece un poquito a mí; son necesarias 


un montón de correcciones después de intentar ejecutarlo, suponiendo 
que no hayas bloqueado el sistema. Por ejemplo, un problema corriente es 
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crear accidentalmente una combinación ilegible de TINTA y PAPEL, o un 
sonido interminable. 

Bueno, pues hay algunas rutinas en el firmware que pueden llamarse 
para restaurar determinadas cosas un poco después de estos incidentes. Son 
las siguientes: 


YBB4E Manipulacion de la pantalla de texto. 
XBBOO Teclado. 

<BBBA Manipulacion de la pantalla de graficos. 
%«BCO2 Reinicializa la pantalla. 

LBCO6S Manipulacion del cassette. 

UBCA7 Manipulacion del sonido. 

«BD37 Restaura el bloque de saltos. 


De todas ellas, £BC02, £BCA7 y £BD37 parecen ser las de mayor 
utilidad. ££BC02 es extremadamente útil, puesto que coloca los colores en 
sus estados originales. Es muy útil cuando uno se las ha ingeniado para 
revolver la paleta del ordenador ¡estropeándolo todo! £¿BD37 te resultará 
útil sólo si realizas algún trabajo más especializado que conlleve la altera- 
ción de las entradas del bloque de saltos. Esta rutina las devuelve a sus 
condiciones iniciales. Llamando a £BCA7 obtendrás la eliminación de un 
sonido que no quiere callar. También puede utilizarse ejecutando progra- 
mas para “limpiar” la memoria de sonido y parar así todo sonido que se 
esté produciendo en ese momento. 


LEEROM (LEE de la ROM) 


Como he mencionado antes en este libro, la RAM se superpone a los 
dos bloques de 16K de la ROM. POKE y PEEK operan ambos en 
posiciones de la RAM sólo en esta memoria. Sin embargo, a veces es 
interesante echar un vistazo a la ROM para ver los mensajes de error que 
aún no hayas descubierto, las estructuras de la tabla de órdenes, e incluso 
para ver cómo los programadores profesionales han diseñado una parte de 
código en particular. Esta rutina lista el contenido de las posiciones de la 
ROM en bloques de 20 bytes. Originalmente fue escrita para utilizarse con 
el modo 2 de pantalla. Las rutinas del firmware nos permiten el acceso a 


las ROM superior e inferior. 
ZA 


| alto | comienzo 
(09 [ie] 


Bloque de parámetros de LEEROM 


Requisitos de entrada: 


Condiciones de salida: 


Longitud: 


9D08 
9D08 
9DOA 
9DOD 
9D10 
9D11 
9D12 
9D15 


9D16 
9D19 
9DÍA 
9D1D 


9D1E 
9D21 
9D22 
9D23 


9D26 
9D2A 
9D2D 
9D30 
9D33 
9D37 
9D3A 
9D3D 
9D40 
9D42 
9D45 
9D47 
9D4A 
9D4B 
9D4C 
9D4D 
9D4F 
9D51 
9D54 
9D56 
9D59 
9D5B 
9D5c 
9D3E 
9D61 
9D63 
9D65 
9D67 
9D49 
9DE6A 
9D6C 
9D6E 
9D7O 
9D72 
9D74 
9D76 


0614 
DD6£E00 
DD6601 
c5 

ES 
CDO6B9 
FS 


CDOOB9 


DD21999D 
CD4F9D 
3AAB9D 
CD679D 
DD21999D 
CD4F9D 
3JAAB9D 
CDSDBB 
3EOD 
CD5ABB 
JEOA 
CDSABB 
El 
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ci 
10C1 
DDES 
CD54BB 
DDE1 
DD7E0O 
FEO0O 
ce 
DDES 
CD5DBB 
DDE1 
DD23 
18EF 
0600 
AF 
CB1F 
CB1F 
CB1F 
CB1F 
E60F 
FEOA 
3008 


10 

20 

30 

40 

50 

60 

70 

go 

90 
100 
110 
120 
130 
140 
150 
1650 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


Desde BASIC, CALL dirección, comienzo, donde 


comienzo es la dirección de la primera posición 
cuyo contenido se va a listar. Desde código má- 
quina, IX apunta a un bloque de parámetros de 


2 bytes, y A=1. 


Todos los registros son alterados. 


161 bytes. 


** LEEROM ex 
ORG 40200 
LD  B,20 

LD  L,(IX+0) 
LD H,(IX+1) 
OBUCLE PUSH BC 

PUSH HL 

CALL HB906 
PUSH AF 


CALL *B900 
LD A, (HL) 

LD  (ALMACN)>,A 
POP. AF 


CALL *B9OC 
POP HL 
PUSH HL 
CALL EHEXHL 


LD IX,SPACIO 


CALL ESCR 
LD A, (ALMACN) 
CALL EHEXA 

LD  IX,SPACIO 
CALL ESCR 

LD A, (ALMACN) 
CALL WBBSD 

LD  A,13 

CALL HBBSA 

LD  A,10 

CALL *BBSA 

POP. HL 

INC HL 

POP. BC 


DJNZ OBUCLE 
ESCR PUSH IX 


CALL $BB54 

POP IX 
BUCLE LD  A,(IX) 

cr 0 

RET Z 

PUSH 1X 

CALL H$RBSD 

POP 1X 

INC IX 

JR BUCLE 
EHEXA LD  B,O 

LD  C,A 

RR OA 

RR OA 

RR OA 

RR OA 
SCRIBO AND $O0F 

CP. *0A 

JR NC,PORC 


.. 


Escribir 20 bytes 
Extrae la direccion de comienzo 


Guarda los registros 
Activa la ROM inferior 
Guarda el registro 

con el estado de la ROM 
Activa la ROM superior 


Toma un byte y lo almacena 
Recupera el byte de estado 


de la ROM, 
y la devuelve a la nmormalidad 


Escribe la direccion 
en HEXadecimal 
Deja un espacio 


Toma el byte leido, 
y lo escribe en hexadecimal 


Deja otro espacio 


Ahora lo escribe como un caracter 
incluyendo codigos de control 


Comienza en la siguiente linea 


Siguiente byte 


Han sido 20 bytes? 


Estas rutinas han sido 
anteriormente comentadas 
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9D78 C4630 570 ADD A,é$30 


9D7A C5 580 PUSH BC 
9D7B CDSABB 590 CALL HBBSA 
9D7E 1806 600 JR SALIDA 
9D80  C637 610 PORC ADD A,*37 
9r82 C5 620 PUSH BC 
9D83  CDS5ABB 630 CALL HBBSA 
9D85 C1 640 SALIDA POP BC 
9D87 78 650 LD A,B 
9D88 FEO1 660 cP 1 

9D8BAa C8 670 RET Z 

9D8B 79 680 LD A,C 
9D8C 0601 690 LD B,1 
9D8E 18E2 700 JR SCRIBO 
9D90 7C 710 EHEXHL LD A,H 
9D91 CD679D 720 CALL EHEXA 
9D94 7D 730 LD A,L 
9D95 CD679D 740 CALL EHEXA 
9D98 C9 750 RET 

9D99 2E2E2E2E 760 SPACIO DEFM "...oooo.oooo.oo. > 
9DA7 770 DEFS 1 

9DAB 00 780 ALMACN DEFB O 
Comentarios 


Existen aquí tres importantes rutinas ROM, dos de las cuales ya 
hemos visto antes, al examinar la rutina CARVAR en el capítulo 3. La 
rutina en £B900 pagina la ROM superior que contiene el intérprete de 
BASIC, y devuelve el estado de la ROM en el registro A. 

Estrictamente hablando, estas tres rutinas no son rutinas firmware 
porque están en la RAM. Una segunda idea explicará el porqué es así. 
Hay un pequeño problema al tener las rutinas de paginación dentro de 
las ROM correspondientes. Si necesitas llamar una rutina de paginación y 
la ROM en cuestión no está paginada, ¡vas a tener problemas! 

La rutina, cuando es llamada con una dirección de comienzo, escribe el 
carácter cuyo código ASCII está en la dirección examinada, incluso si el 
código ASCII leído en la dirección es el de un código de control. Podemos 
hacer esto usando la rutina £BB5D en vez de la £BBSA. Dado que 
LEEROM utiliza muchas subrutinas, es muy difícil relocalizarla sin la 
ayuda de un pequeño programa ensamblador. Los bytes del listado están 
preparados para la dirección 40200. Si decides relocalizar el programa, es 
importante conservarlo íntegramente dentro del área “depósito de memo- 
ria” de la RAM. De otro modo, cuando se paginen las ROM para tener 
acceso a su contenido, ¡parte de tu programa quedará inaccesible! No es 
una situación muy deseable. 

La rutina puede, por supuesto, usarse para leer el contenido de la 
RAM que no esté superpuesta por la ROM. 

La siguiente rutina se llama ENCUENTRA y se usa para escudriñar a 
través de un programa en BASIC y hallar textos o nombres de variables. 
Luego escribe el número de las líneas en donde se ha encontrado la 
cadena particular buscada. Antes de ver esta rutina, vamos a dar un 
vistazo al modo de almacenar en la memoria el texto de los programas 
BASIC y las posibles aplicaciones. 


Estructura de una línea en BASIC 


Una típica línea en BASIC es de la forma: 


longitud de la línea 


número de línea 


texto —» 


término -» 


La longitud de la línea es el número de bytes de la línea completa, 
incluyendo los bytes de longitud de línea, de número de línea, y byte de 
término. El byte de término “0” actúa separando las líneas unas de otras. 
El final de un programa puede localizarse buscando a través del texto del 
programa una entrada de longitud de línea puesta a cero y una entrada de 
número de línea también a cero. 

La alteración de las longitudes y números de línea, introduciéndolos en 
las posiciones adecuadas de la memoria mediante la orden POKE, puede 
resultar bastante interesante; sin embargo, también puede parecerte que 
pierdes un programa al introducir el número de línea con POKE. El 
programa sigue ahí, pero debes proporcionar la correcta longitud de línea. 
Un punto interesante es la posibilidad de reproducir un programa ilegible, 
y ejecutarlo aun así. Aunque eso ya es desviarse un poco del tema. El 
texto del programa en BASIC comienza en la dirección 368, con el byte 
bajo de la longitud de línea de la primera línea del programa. 

Hay que tener en cuenta que, a diferencia de otros aparatos, la primera 
línea con una sentencia REM no es el lugar más apropiado para guardar 
el código máquina, principalmente debido a que estaría en el área de la 
RAM superpuesta por la ROM. Ello aumentaría los problemas si la ROM 
fuera a ser paginada. 

En el texto actual de la línea, las palabras clave del BASIC y las 
funciones se almacenan como bytes individuales con valores entre 128 y 
255, denominados PALABRA CLAVE (TOKENS). Por ejemplo, ABS 
toma el valor 255, AFTER es 128 y REM es 197. El texto tras una señal 
REM, o una cadena entre comillas (“ ”) asignada a una sentencia PRINT, 
se almacena como una secuencia de códigos ASCII. Todas las asignaciones 
en una línea de programa, como: 


100 a$="paco" 


son bastante interesantes; si la dirección de a$ se introduce en una rutina 
en código máquina, usando CALL dirección,Qa$, el valor dado como 


187 


188 


dirección estará en el cuerpo del programa, en la línea 100. La cuestión de 
interés es que, si modificas la cadena dentro de la rutina en código 
máquina, la línea 100 se modificará. Puedes ver esto en acción en el 
programa INTROCAD. La dirección de cualquier variable puede obtener- 
se sólo con teclear: 


PRINT Enombre-variable 


No tienes que incluirlo como parte de la sentencia CALL (Y; puede 
usarse independientemente. Sin embargo, informaciones tales como la di- 
rección de variables son de mínimo uso en programas prácticos, dado que 
CALL te soluciona todos los detalles. 

Lo que realmente nos interesa respecto a ENCUENTRA es el modo 
en que los nombres de las variables actuales son almacenados en las líneas 
del programa. Los nombres de variables se almacenan en ASCII, añadien- 
do 128 al código ASCII del último carácter. Así, para nombres de una 
sola letra, la letra tiene 128 añadido a su código ASCII. Cuando hablo de 
último carácter me refiero a la última letra del nombre de la variable, NO 
al “identificador del tipo”, si es que existe. Así el nombre de la variable 
“paco” se almacena así: 


onp.».u 
5] 
N 


239 (111+128) 


Para lo que nos concierne, esto es lo único que necesitamos saber sobre 
almacenamiento de nombres de variables. Probablemente encontrarás un 
serio problema a la hora de buscar nombres de variables en programas 
BASIC para Amstrad; el último carácter, con el valor 128 añadido a su 
código ASCII, tiene ahora un código en el mismo intervalo que las 
PALABRAS CLAVE BASIC. Esto puede acarrear problemas, y de hecho 
los produce a veces con ENCUENTRA, en particular cuando el nombre 
de la variable que buscamos tiene sólo una letra. La rutina puede encon- 
trar ocasionalmente, buscando nombres de variable con una sola letra, 
líneas cuyo contenido es una determinada PALABRA CLAVE de BASIC 
en lugar de la variable. Sin embargo, con nombres más largos no hay 
problemas. 


ENCUENTRA 


Una rutina para encontrar textos o nombres de variables en el cuerpo 
de un programa BASIC. Los números de línea que se refieren a la 
posición del texto buscado o al nombre de la variable se imprimen en 
pantalla. 


Requisitos de entrada: Desde BASIC: CALL dirección,a$, modo, don- 
de “modo” define si la búsqueda es en torno a 
un nombre de variable (con el último carácter 
adecuadamente modificado) cuando modo es 
=0, o en torno a un texto normal cuando modo 
=1. Cuando modo =1 el último carácter de la 
cadena buscada en a$ no es modificado, por lo 
que los nombres de variables no son localizados. 
Me remito a los Comentarios para más detalles. 


Condiciones de salida:  Irrelevantes. 


Longitud: 334 bytes. 
10 5; ** ENCUENTRA %*+%e 
AS10 20 ORG 42000 
A410 FEO2 30 cP 2 
A412 205A 40 JR NZ,PARAMS 
A414 DD6E02 50 LD L, (1X+2) 
A417 DD6603 60 LD H, (1X+3) 
A1A 7E 70 LD A, (HL) 
A41B_ 3264A5 go LD (LONG)>,A 3 Descriptor de anchura 
AME 23 90 INC HL 
AJ1F 4E 100 LD C, (HL) 
AI20 23 110 INC — HL 
A421 46 120 LD B, (HL) 
A422 ED4362A5 130 LD (CADENA),BC5 Direccion de la cadena 
A426 DD7EO0OO 140 LD A, (IX+0) 
A429 FEO1 150 cP 1 
A42B 2817 160 JR 7, OK 3 Si se trata de texto normal, 
170 5; comienza directamente 
A42D 3A64A5 180 LD A, (LONG) 3 En caso contrario, modifica 
A430 5F 190 LD E,A 3 el ultimo caracter del nombre 
A431 1600 200 LD D,O 3 de la variable sumandole 128 
A433 1B 210 DEC DE 3 y almacenandolo despues 
A434 2A62A5 220 LD HL, (CADENA) 
A437 19 230 ADD HL,DE 
A438 7E 240 LD A, (HL) 
A439 C680 250 ADD A,128 
A43B 77 260 LD (HL>,A ¿3 en la memoria 
A43C 3A64A5 270 LD A, (LONG) 
AG3F FEO1 280 cP 1 3 Si el nombre de la variable 
A441 CCCBA4 290 CALL Z,PROBLS 53 lo compone un solo caracter, 
A444 DD217001 300 OK LD 1X,368 3 se escribe un mensaje 
310 5 al inicio del programa 
A448 DDSEO0OO 320 BUCLE LD E, (1X+0) 
A44B DD5601 330 LD D, (1X+1) 3 DE = longitud de la linea 
A44E DD6E02 340 LD L, (1X+2) 3 HL = numero de linea 
A45S1 DD6603 350 LD H, (1X+3) 
A454 2256045 360 LD (LINEA), HL 
AAS57 7D 370 LD A,t 
A458 B4 380 OR H 
A459 2875 390 JR Z,¿FINAL 5 Terminaremos cuando 
400 5; lleguemos a la linea cero 
A45B CD1BBB 410 CALL $+BB1B 
A45SE 3870 420 JR C,FINAL 3 Si se pulsa una tecla 
430 5 tambien finalizara 
A460 CD7OA4 440 CALL BLINEA 3 Examina la linea 
A463 DDES 450 PUSH IX 
AMES El 450 POP. HL 
AA466 1B 470 DEC DE 
A67 19 480 ADD HL,DE 3 Actualiza HL para que apunte 
A468 23 490 INC HL 3 al comienzo de la siguiente linea 
A69 ES 500 PUSH HL 3 Lo transfiere a IX 
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AGA 
A4EC 
AE 


A470 
A472 
A473 
A475 
AS75 
A477 
A478 
A479 
AI7A 


A47B 
A47C 
AI7F 


A480 
A484 
A485 
A486 
A487 
A489 
AABA 
A48B 
A48Cc 
A48D 
A48BE 


A49O 
A491 
A493 
A494 
A497 
A498 
A499 
ATA 
A49C 
A49D 
A4TE 
AGAO 


AGA 
AMAS 
AGA7 
AJAA 
ABAC 
ASAF 
AAB1 
A4B2 
A4B3 
AAB4 
A4B7 
A4BA 
AABB 
AABC 
A4BD 
AABF 
A4CO 
AACA 
A4C7 
A4C8 
AACC 
AACF 
AADO 
A4D1 
A4D3 
A4D6 
A4D8 


DS 
110400 
19 


EDS5SB42A5 
c5 

1A 

BE 

280B 


CDASA4S 


18E4 
3EOA 
CDS5ABB 
3E0D 
CDSABB 
DDES 
ES 

D5 

c5 
2A60A5 
CDF8A4 


DD214BA5 
CDD1A4 
c9 
DD2126A5 
CDD1A4 
c9 

c9 

DDES 
CD54BB 
3EO0A 
CD5ABB 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
eso 
B60 
870 
880 
890 
900 
q10 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
11650 
1170 
1180 
1190 
1200 


PARAMS 


3 
BL INEA 


5 
BUCLE1 


NOBIEN 


sI 


BUCLE2 


VISTO 


PARAM2 


PROBLS 


FINAL 
ESCR 


POP 
JR 
JR 


PUSH 
POP 
PUSH 
PUSH 
POP 
DEC 
DEC 
DEC 
DEC 


PUSH 
LD 
ADD 


LD 
PUSH 
LD 
cP 
JR 
POP 
DEC 
INC 
LD 
OR 
JR 


POP 
POP 
RET 
LD 
LD 
LD 
cP 
JR 
INC 
INC 
DINZ 
CALL 


JR 
LD 
CALL 
LD 
cALL 
PUSH 
PUSH 
PUSH 
PUSH 
LD 
CALL 
POP 
POP 
POP 
POP 
RET 
LD 
CALL 
RET 
LD 
cali 
RET 
RET 
PUSH 
CALL 
LD 
CALL 


IX 
BUCLE 3 Vuelve otra vez 
PARAMZ 3 Se necesita para un 
salto relativo 
IX 
HL 3 Comienzo de la linea en HL 
IX 
DE 
BC 3 Longitud en BC 
BC 
BC 
BC 5 Reduce la linea en cuatro bytes 
BC 3 de forma que solo 
se examine el texto 
DE 
DE,04 
HL, DE 3 Ahora HL apunta hacia 
el comienzo del texto 
DE, (CADENA)5 Direccion de la cadena en DE 


BC 
A, (DE) 
(HL) 

z,S1 

BC 

BC 

HL 

A,B 

C 

NZ, BUCLE1 


Guarda la longitud de la linea 


Si hay dos caracteres, adelante 
Decrementa el contador, 

de forma que apunte 

hacia el siguiente caracter 


e... *. ue 


Continuara hasta que finalice 
la linea 


DE 


1X Restaura los registros 


A, (LONG) 
B,A 

A, (DE) 
(HL) 
NZ,NOBIEN 
HL 

DE 

BUCLEZ 
VISTO 


Examina el. resto para ver 
si puede continuar 
En caso negativo, regresa 


e. 


Salta para escribir 
lo que encuentra 


ss 


NOBIEN 
A, 10 
ABBSA 
A,13 
HBBSA 

1X 

HL 

DE 

BC 

HL, (LINEA) 
PDECHL 

BC 

DE 

HL 

IX 


Retorno de carro 


e. 


IX, PARA 
ESCR 


IX, TEXTO1 
ESCR 


IX 3 Rutinas anteriormente documentadas 
$BBS4 

A,10 

HBBSA 


A4DB  3E0OD 1210 LD Ay, 13 


A4DD CDS5ABB 1220 CALL RBBSA 
AAEO 3E07 1230 LD A,7 
A4E2 CDS5ABB 1240 CALL *BBSA 
AMES DDE1 1250 POP. IX 
AAE7 DD7E0OO 1260 BUCLES LD A, (1X) 
AAMEA FEOO 1270 cr o 

AJEC CB 1280 RET Z 

AED DDES 1290 PUSH IX 
A4EF CD5DBB 1300 CALL *BBSD 
AAF2 DDE1 1310 POP. IX 
AAF4 DD23 1320 INC — IX 
AAF6 —18EF 1330 JR BUCLES 
A4F8B 111027 1340 PDECHL LD DE, 10000 
AAFB CD13A5 1350 CALL PDECH 
AAFE —'11E803 1360 LD DE, 10060 
A5o1  CD13AS 1370 CALL PDECH 
AS04 116400 1380 LD DE, 100 
ASO7  CD13A5 1390 CALL FDECH 
ASOA 110400 1400 LD DE, 10 
ASOD  CD13A5 1410 CALL FDECH 
AS10O 110100 1420 LD DE, 1 
AS13 AF 1430 PDECH XOR A 

AS14 37 1440 BUCLE4 SCF 

AS15 3F 1450 ccF 

AS16 ED52 1460 SEC  HL,DE 
As18 3803 1470 JR C,PDSAL 
ASIA 3C 1480 INC A 

AS1B  18F7 1490 JR BUCLE4 
AS1D 19 1500 PDSAL ADD HL,DE 
AS1E C630 1510 ADD A,é30 
A520 ES 1520 PUSH HL 
A521 CDS5ABB 1530 CALL R*BBSA 
AS524 El 1540 POP HL 
A525 C9 1550 RET 


AS526 50756564 1560 TEXTO1 DEFM "Pueden aparecer resultados dispares!" 
ASA 1570 DEFS 1 
AS4B 50617261 1580 PARA DEFM "Parametros erroneos." 


ASSF 1590 DEFS 1 
AS60 0000 16500 LINEA DEFW 0000 
A5S62 0000 1510 CADENA DEFW 0000 
AS64 00 1520 LONG DEFB 00 
Comentarios 


Dado el extenso uso de subrutinas, este programa puede relocalizarse 
pero con dificultad. Todas las referencias a las direcciones de las subruti- 
nas necesitan alterarse. Se han usado rutinas como EDECHL y ECA- 
DEN, que hemos visto anteriormente en este libro. Los bytes dados en el 
listado son para la dirección 42000. El programa es relativamente sencillo 
de manejar. 


a$t="paco" : CALL 42000,%a$,0 


buscará el nombre de la variable “paco”. No pongas el identificador del tipo 
cuando busques algo similar a “paco%” o “paco$”. Quiítalo sin más. 
ENCUENTRA propondrá todas las posibilidades del nombre “paco” de 
la variable, independientemente del tipo. Si intentas buscar el nombre de 
una variable de una sola letra, el programa te avisará de los extraños 


19 


192 


resultados que puedes obtener. Durante una búsqueda, si quieres terminar, 
no tienes más que pulsar una tecla cualquiera. Con ello terminará la 
búsqueda. 


aé="paco" : CALL 42000,Ba$,1 


buscará un fragmento de texto que contenga “paco” en su interior. Esto 
podría ser una sentencia PRINT o REM, o podría formar parte de un 
nombre de una variable, como, por ejemplo, “pacotilla”; “paco” está 
dentro, y será detectado por ENCUENTRA. Utilizando la rutina con 
modo=0, volverá al BASIC con el último carácter de a$ alterado, al 
habérsele añadido 128 a su código ASCII. Esto no ocurre cuando mo- 
do=1. 

Hemos visto antes en este capítulo cómo el final de un programa en 
BASIC se indica mediante la aparición de la longitud de línea y del 
número de línea puestos a cero. La siguiente rutina, LONGITUD, aprove- 
cha esta circunstancia para dar la longitud en bytes de un programa en 
BASIC. 


LONGITUD 
Escribe la longitud de un programa en BASIC, 


Requisitos de entrada: CALL dirección. 


Condiciones de salida:  Irrelevantes. 


Longitud: 93 bytes. 
10 5 ** LONGITUD «*x 
As10 20 ORG 42000 
A410 DD217001 30 Or LD 1X,368 3 Comienzo del programa 
A414 ol0000 40 LD BC,0 
A417 DDS5E00 50 BUCLE LD E, (1X+0) 
A41A DDS601 60 LD D, (1X+1) 3 DE = longitud de la linea 
A41D DD6E02 70 LD L, (1X+2) 5 HL = numero de linea 
A420 DD64603 (2) LD H, (1X43) 
A423 7D 90 LD A,L 
A424 B4 100 OR H 
4425 2812 110 JR Z,FINAL 3 Si es cero, hemos terminado 
A927 ES 120 PUSH HL. 
A428 C5 130 PUSH EC 
A929 El 140 POP HL 5 El contenido de RC pasa a HL 
ar2A 19 150 ADD HL,DE 5 Suma a HL la longitud de la linea 
A42B ES 1650 FUSH HL 
A42C Ci 170 FOP EC j Se actualiza BC 
A42D El 180 POP HL 
A42E DDES 190 PUSH IX 
A430o El 200 POP HL 
A431 1B 210 DEC — DE 
A432 19 220 ADD HL, DE 3 Actualiza HL para que apunte 
A933 23 230 INC HL 5 al comienzo de la siguiente linea 
A934 ES 240 FUSH HL 3 Lo transfiere a IX 
A435 DDE1 250 POP. IX 
A437  18DE 260 JR BUCLE 3 Vuelve otra vez 


A439 C5 270 FINAL PUSH BC 


AGA El 280 POP HL 5 BC pasa a HL 
A43B CD3FA4 290 CALL FDECHL 3 Lo escribe 
AAJE C9 300 RET 

AIF 111027 310 PDECHL LD DE, 10000 
A442 CDS5AA4S 320 CALL PDECH 
A%445S '11E803 330 LD DE, 10009 
A4498 CDS5SAA4S 340 CALL PDECH 
A%4B 116400 350 LD DE, 100 
A44E CDS5SAA4 360 CALL FDECH 
AAS1 110500 370 LD DE, 10 
A454 CD5SAAS 380 CALL PDECH 
A457 110100 390 LD DE, 1 
AGSA AF 400 PDECH XOR A 

A4S5B 37 410 BUCLE4 SCF 

A45C 3F 420 ccr 

A43D EDS2 430 SBC  HL,DE 
A4SF 3803 440 JR C,FDSAL 
A461 —3C 450 INC A 

A%462 18F7 4650 JR BUCL.E4 
ABLA 19 470 FDSAL ADD HL,DE 
A%65 C630 480 ADD A,*$30 
A467 ES 490 FUSH HL 

A46B CDSABB s00 CALL. HBBSA 
A6B El s10 POP HL 

A%EC C9 520 RET 
Comentarios 


La rutina es también algo complicada de relocalizar dado el uso de 
subrutinas. Los bytes del listado son para la dirección 42000. Para usar 
esta rutina, sólo tienes que llamarla cuando lo necesites (mediante CALL). 
La longitud del programa se escribirá en pantalla, y si no hay ningún 
programa en el ordenador, aparecerá un valor igual a cero. 


Extensiones del sistema residente 


El programa ensamblador originalmente utilizado en este libro para 
producir los listados estaba en un chip de ROM, y se invocaba tecleando 
la orden 


| ASSEMBLE 


La línea vertical, obtenida desde el teclado mediante SHIFT «, notifica 
al intérprete de BASIC que el texto siguiente debe considerarse como una 
orden extra, y que los detalles para el procesamiento de la orden los 
hallará en la RAM o en la ROM. Esta facilidad que nos permite añadir 
instrucciones como ésta a la estructura de las órdenes BASIC es lo que se 
llama extensión del sistema residente o RSX para abreviar. Fundamental- 
mente es un modo de llamar a las rutinas en código máquina por su 
nombre en vez de tener que recordar su dirección. Es clara su utilidad 
cuando en un programa quieras acceder a varias rutinas diferentes desde 
BASIC. Los parámetros pueden introducirse en rutinas RSX de modo 
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prácticamente idéntico a como se introducen en rutinas en código máqui- 
na a las que se accede mediante la orden CALL. Las órdenes RSX pueden 
transferir desde código máquina al BASIC valores de las variables utilizan- 
do la función “a”; una línea como: 


¡GET,Gcaracter7. 


podría, por ejemplo, esperar la pulsación de una tecla y devolver el código 
ASCII de la tecla pulsada como variable “carácter%,”. Una línea del tipo: 


caracter = ¡GET 


no es posible. Por ello, las órdenes RSX no son verdaderas extensiones del 
BASIC, sino que se asemejan en mayor grado a las denominadas rutinas 
CALL. Sin embargo, ello no quita para que resulten de suma utilidad. 

El intérprete de BASIC debe conocer la presencia de las órdenes RSX, 
y es una suerte que no tengamos más que llamar a una rutina del sistema 
operativo del firmware para ello. Para mostrar su funcionamiento añadire- 
mos un par de órdenes RSX, [CLS y |BARRE. 

¡CLS borra la pantalla y restaura el color de encendido. 

¡BARRE inicia un proceso de interrupción hasta que el siguiente barri- 
do de la pantalla haya concluido. Esto es útil para programas de gráficos, 
pues te ayuda a reducir los parpadeos. 

Ninguna de estas órdenes acepta parámetros, pero enseguida añadiré 
una orden que lo consigue. 


En el cuerpo del sistema RSX se encuentran dos tablas, la tabla de 
saltos y la tabla de nombres. Sólo te daré aquí la información necesaria 
para permitirte usar el sistema. Si quieres profundizar más, deberás consul- 
tar el manual técnico del firmware de Amsoft. 


La tabla de saltos 
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Contiene las direcciones a las que las distintas órdenes RSX añadidas 
pasan el control. Las direcciones se almacenan como parte de una instruc- 
ción JP del Z-80. 


COMIENZO-TABLA DEFW nombres 5 Direccion de la tabla de nombres. 
JP rutinal 3 Primera rutina. 
JP rutina2 5 Segunda rutina. 
JP rutina j y asi sucesivamente... 


La tabla de nombres la veremos enseguida. Se necesita una entrada a 
la tabla de saltos por cada orden RSX que añadas, y el orden de aparición 
es el mismo en que aparecen en la tabla de nombres RSX. 


La tabla de nombres 


Contiene los nombres actuales de las órdenes RSX que quieras añadir. 
La dirección inicial de esta tabla se almacena, con el byte bajo en primer 
lugar, en los dos primeros bytes de la tabla de saltos. 


nombre de rutimal . 
nombre de rutina2 . 
nombre de rutima3 . 
Final de la tabla. 


nombres DEFM  nombre-de-1la-ordeni 
DEFM  mombre-de-1la-orden2 
DEFM  mnombre-de-1a-orden3 
DEFB O 


e». y o. 


Hay un punto importante sobre esta tabla a tener en cuenta. Y es que 
el último carácter del nombre de cada orden tiene el valor 128 añadido a 
su código ASCII. Y otra cuestión adicional a considerar es el orden de las 
entradas; al encontrar “nombre de la orden 1” se producirá un salto a la 
“rutina 1” y así sucesivamente. Finalmente, todas las entradas a la tabla de 
nombres deberán estar en mayúsculas. Todas las órdenes RSX introduci- 
das en el aparato se convierten en mayúsculas por el intérprete de BASIC, 
por lo que también debemos colocar los nombres de órdenes de la tabla 
en mayúsculas, recordando que el último carácter debe ser modificado. El 
intérprete requiere también 4 bytes para el espacio de trabajo, cuya ubica- 
ción en el depósito de memoria es indiferente. Una vez inicializadas, las 
tablas son “activadas” y la orden se añade a la estructura de órdenes, 
mediante una llamada a la dirección £¿BCD1 con la dirección del espacio 
de trabajo en HL y la dirección del comienzo de la tabla de saltos en BC. 
Esta llamada no deberá hacerse más de una vez para una misma tabla, 
pues de lo contrario parece ser que pueden producirse bloqueos. 

Puedes añadir también otras tablas de órdenes, si quieres, una tras 
otra. ¡Es evidente que tendrás que procurar no poner el mismo nombre a 
dos o más órdenes RSX! 


RSX1 
Esta rutina añade dos órdenes RSX, [CLS y |BARRE. 


Requisitos de entrada: CALL dirección, donde dirección es la dirección 
de la rutina activada. Sólo deberá llamarse una 
vez. 


Condiciones de salida:  Irrelevantes. 


Longitud: 44 bytes, incluidas las tablas RSX. 
10 5; e RSX1 e 

9D08 20 ORG 40200 

9D08 011F9D 30 LD BC, TABLA 

9DOB 21309D 40 LD HL, TRABJO 

9DOE CDD1BC so CALL *RBCD1 35 Inicializa la tabla 

Q9D1ii1 C9 60 RET 
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196 


9D12 CD19BD 70 BARRE CALL *BDi9 5 Rutima que espera hasta el 


80 ; siguiente barrido de pantalla 
9D1S C9 90 RET 
9D16 CDO2BC 100 CLS CALL *BCO2 ; Rutima para CLS 
9D19 3E0C 110 LD A,12 
9D1B CDS5SABB 120 CALL RHBBSA 
DIE C9 130 RET 
QD1F 279D 140 TABLA DEFW NOMBRS 3 Direccion de la tabla de nombres 
9D21 C3129D 150 JP BARRE 5 Salto a barre 
9D24 C3149D 160 JP cLs 3 Salto a CLS 
9D27 42415252 170 NOMBRS DEFM "BARR" 35 BARRE con el ultimo caracter 
180 5; modificado 
9D2B C5 190 DEFB 197 
9D2C  434C 200 DEFM "CL” 3 CLS con el ultimo caracter modificado 
9D2E D3 210 DEFB 211 
9D2F 00 220 DEFB O 3 Termino 
9D30 230 TRABJO DEFS 4 3 Espacio de trabajo 
Comentarios 


Una vez inicializadas las tablas mediante la rutina adecuada, las dos 
órdenes [BARRE y |[CLS estarán en condiciones de usarse. 

La introducción de parámetros en las rutinas RSX es fácil. Es práctica- 
mente idéntica a la introducción de rutinas mediante la orden CALL. Al 
comenzar una de las rutinas RSX, el registro IX apunta a un bloque de 
parámetros y A contiene el número de parámetros transferidos con la 
orden RSX. La colocación de los parámetros en el bloque de parámetros 
es la misma que para la sentencia CALL. La siguiente rutina, |PAUSA, n, 
demuestra todo esto. 


PAUSA 


Una orden RSX que produce un retardo de unos n/S50 segundos. 
Realiza esta función mediante repetidas esperas del siguiente barrido de la 
pantalla, siendo éste un proceso que se produce cada cincuentavo de 
segundo. El retardo también puede finalizar al pulsar una tecla. 


Requisitos de entrada: |PAUSA, n, donde n es el retardo en 1/50 de 
segundo entre 1 y 65535. 


Condiciones de salida:  Irrelevantes. 


Longitud: 105 bytes. 
10 5 +. PAUSA xx 
9D08 20 ORG 40200 
9D08 01509D 30 LD BC, TABLA 
9DOB 215B9D 40 LD HL, TRABJO 
9DOE CDD1BC 50 CALL *$BCD1 3 Inicializa la tabla 
9D11 C9 60 RET 
9D12 FEO1 70 PAUSA CP 1 
914 2018 80 JR NZ,ERROR 3 Error si hay mas de un parametro 
9D16 DD4E00 90 LD C, (1X) 


9D19 
9D1C 
9D1D 
9D20 
9D23 
9D25 
9D26 
9D27 
9D28 
9D29 
9D2B 
9D2C 
9D2D 
9D2ZE 
9D32 
9D34 
9D37 
9D3A 
9D3C 
9D3E 
9D41 
9D43 
9D45 
9D47 
9D4A 
9D4C 
9D4F 
9D5O 
9D52 
9D55 


9D59 
9DSA 
9D5B 
9D5SF 
9D73 


Comentarios 


Una instrucción como 


DD4401 
c5 
CD19BD 
CD1BBB 
3807 
ci 

OB 

78 

B1 
20F1 
co 

c1 

c9 
DD215F9D 
3E07 
CD5ABB 
DD7E0O 
FEOO 
2807 
CDS5ABB 
DD23 
18F2 
3EOD 
CDS5ABB 
3EO0A 
CDS5SABB 
c9 
559D 
C3129D 
50415553 


c5 
00 


50617261 


¡PAUSA, 50 


BUCLE 


FINAL 


ERROR 


BUCLE 1 


HECHO 


TABLA 


NOMBRS 


TRABJO 
TEXTO1 


DEFM 


DEFB 
DEFB 
DEFS 
DEFM 
DEFS 


B, (IX+1) 5 
BC 

RBD19 ; 
RBBIB 5 
C,FINAL 5 
BC 5 
BC ; 
A,B 

c 

NZ,BUCLE 5 
, 


BC 5 


IX, TEXTO1 5 


NOMBRS 5 
PAUSA 
"“FAUS" 5 
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la] 5 
4 3 
"Parametros 
1 


Duracion de la pausa en BC 


Pausa 

Alguna tecla apretada? 
Si asi es, salida 

En caso contrario... 
decrementa BC y 


si todavia-no es cero, repite 
Todo realizado, final 
Vendra aqui si se pulsa una tecla 


Escribe un mensaje de error 


Direccion de la tabla de nombres 


PAUSA con el ultimo caracter 
modificado 


Termino 
Espacio de trabajo 
erroneos." 


producirá un retardo de un segundo una vez que la orden haya sido 
activada accediendo a la rutina. La pulsación de una tecla durante este 
tiempo también provocará el término de la rutina. Prueba con: 


F=TIME: ¡PAUSA, 5SO0:PRINT TIME-P 


que transforma la duración de una pausa en 1/300 segundos. 
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Código 


APENDICES 


1. Efectos de los 


códigos de control 


EFECTO 


Sin efecto. 

Necesita un parámetro comprendido entre O y 255. Expone el 
símbolo que corresponde al valor del parámetro. Permite mos- 
trar los símbolos asociados con los caracteres de la gama 0 a 
31, en vez de que sean tratados como códigos de control. 
Vuelve invisible el cursor de texto. 

Vuelve visible el cursor de texto. 

Un parámetro que será el modo de pantalla. Así PRINT 
CHR$(4) +CHRS(1) activará el modo 1. 

Un parámetro entre O y 255. El parámetro es el código ASCII 
del carácter que quieres que se exponga en la posición del 
cursor de gráficos. 

Activa la pantalla de texto. 

Produce un pitido. 

Retrocede el cursor una posición. 

Avanza el cursor una posición. 

Mueve el cursor una línea hacia abajo. 

Mueve el cursor una línea hacia arriba. 

Limpia la ventana de texto. 

Desplaza el cursor al borde izquierdo de la línea en que se 
encuentre. 
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200 


Código 


14 
15 
16 
17 
18 
19 
20 


EFECTO 


Un parámetro, que es considerado como el número de tinta del 
papel. 

Un parámetro, que es considerado como el número de tinta de la 
pluma. 

Borra el carácter que se encuentre en la misma posición del 
cursor de texto. (Igual que CLR.) 

Limpia la ventana desde la posición actual del cursor hasta el 
borde izquierdo. 

Limpia la ventana desde la posición actual del cursor hasta el 
borde derecho. 

Limpia la ventana desde el principio hasta la posición actual 
del cursor. 

Limpia la ventana desde la posición del cursor hasta el final de 
la ventana. 


Los códigos de control 16-20 limpian la posición actual del cursor, así 
como el resto. El espacio borrado se rellena con el color asignado al papel 


de textos. 


21 
22 


z3 


24 
Z3 


26 


24 
28 


Desactiva la pantalla de texto. 

Un parámetro; 1 activa la opción de transparencia y O la 
desactiva. 

Un parámetro que fija el modo de gráficos. 

1 modo XOR 

2 modo AND 

3 modo OR 

O modo absoluto o forzado. 

Intercambia la tinta del papel y pluma. 

9 parámetros. Es el equivalente a la orden SYMBOL. El primer 
parámetro es el código ASCII del símbolo a definir. El resto de 
parámetros son las definiciones de cada una de las líneas del 
carácter. He descubierto que este código provoca a veces ciertos 
problemas. 

Equivale a la orden WINDOW. Tiene 4 parámetros. Los pri- 
meros 2 parámetros especifican los bordes izquierdo y derecho 
de la ventana. No importa el orden en que introduzcas estos 
parámetros, ya que el menor es siempre considerado como 
borde izquierdo. Los siguientes 2 parámetros son las filas supe- 
rior e inferior de la ventana. Se considerará al valor más peque- 
ño como borde superior y al otro como borde inferior. 

Sin efecto. 

3 parámetros. Elige como tinta una pareja de colores. El primer 
parámetro es el número de la tinta; los 2 segundos indican los 
colores. 


Código 


29 


30 


31 


EFECTO 


Dos parámetros. Equivale a la orden BORDER. Los dos paráme- 
tros especifican los dos colores. 

Desplaza el cursor a la esquina superior izquierda de la 
ventana. 

Dos parámetros. Equivale a la orden LOCATE. Sitúa el cursor 
de texto en la posición X,Y, donde X es el primer parámetro e 
Y es el segundo. 


Todos estos códigos de control pueden ser transferidos a la rutina 
PCONTR o a la que permanece en la dirección £¿BBSA. Observa que la 
rutina del firmware situada en £BB5D no actúa con estos códigos de 
control, sino que escribe el símbolo asociado a ellos. 


. Instrucciones 
y Códigos operativos 


d=desplazamiento - nn=número 0-65535 - n=número 0-255 


CODIGO INSTRUCCION CODIGO INSTRUCCION CODIGO INSTRUCCION 
OBJETO FUENTE OBJETO FUENTE OBJETO FUENTE 


A,(HL) E620 CB63 BIT 4, 
A,(1X+d) CB46 O,.(HL) CB64 BIT 4,H 
A.(1Y+d) DDCB0546 0,(1X+d) CB65 BIT 4,L 

A,A FDCB0546 O,(1Y+d) CB6E BIT 5,(HL) 
A.B CB47 0,A DDCBO056€ BIT 5,(1X+d) 
A,C CB40 .0,8 FDCBO056E BIT 5 (1Y+d) 
200 CB41 0,C cB6F BIT 5,A 

AE CBa42 0.D c868 BIT 5.8 

a CB43 0,E CB69 BIT 5,0 

AL CB44 0,H C86A BIT 5.D 

A.n CB45 O,L CB6B BIT 5,E 
HL,BC CB4E 1. (HL) CcB6C BIT 5,H 
HL,DE DDCB054E 1,(1X+d) CB6D BIT 5.L 
HL,HL FDCBO054E 1,(1Y+d) CB76 BIT 6,(HL) 
HL.SP CB4F 1,A DDCB0576  BIT 6,(1X+d) 
A,(HL) CB48 1,8 FDCBO0576 BIT 6,(1Y+d) 
A,(1X+d) CB49 1,c CB77 BIT 

A,(1Y+d) CB4A 1,D CB70 BIT 

A,A CB4B 1,E CB71 BIT 

AB cBac 1,H CB72 BIT 

A,C CB4D 1L CB73 BIT 

AD CB56 2, (HL) CB74 BIT 

A,E DDCB0556 2,(1X+d) CB75 BIT 

A,H FDCB0556 2,(1Y+d) CB7E BIT 

AL CB57 DDCB057E BIT 7.(1X+d) 
An CB50 FDCBO057E BIT 7,11Y+d) 
HL,BC CB51 : CB7F BIT 7,A 
HL,DE CB52 CB78 BIT 7.8 
HL,HL CB53 CB79 BIT 70 
HL,SP CB54 CB7A BIT 7,D 
1X,BC CB55 CB78 BIT 7,E 
IX,DE CB5E cB7C BIT 7,H 

IX AX DDCBO055E 3,(1X+d) CB7D BIT 7 

IX, SP FDCBO55E 3,(1Y+d) DC8405 CALL C,nn 
1Y,8C CB5F 3,A FC8405 caLL  Minn 
1Y,DE CB58 D48405 CALL  NC,nn 
Y Y C859 C48405 CALL NZ,nn 
IY SP CB5A F48405 CALL Pnn 
(HL) CB5B EC8405 CALL PEnn 
(1X+d) cB5sc PO,nn 

FDA605 (1Y+d) CB5D Z.nn 

A7 CB66 4,(HL) nn 
DDCB0566 4,(1X+d) 

A1 FDCB0566 4,(1Y+d) (HL) 
CB67 4,A (1X+d) 
cB60 4,8 (1Y+d) 
CB61 4,0 A 
CB62 4,0 B 


CODIGO INSTRUCCION CODIGO INSTRUCCION CODIGO INSTRUCCION 
OBJETO FUENTE OBJETO FUENTE OBJETO FUENTE 


26 A,(nn) 
33 7F A,A 
DB20 78 A.B 
EDAA 79 A,C 
EDBA 7A AD 
EDA2 
EDB2 78 A.E 
C38405 nn 70 PS 
E9 (HL) ad AL 
DDE9 AnS) 3€20 An 
FDE9 (1Y) Ss 
DA8405 C.nn ell O 
(HL) FA8405 Minn DD4605 B.(1X+d) 
(0Ga) D28405 YE FD4605 B.(1Y+d) 
(1Y+d) C28405 NZ nn 47 BA 
F28405 P.nn 40 8,8 
EAB405 2E.0n 41 8.c 
E28405 PO nn 42 8,D 
CA8405 Z.nn 43 BE 
382€ C.e 44 B.H 
302€ NC.e 45 BL 
202€ NZz.e 0620 Bn 
282€ Z.e ED4B8405 BC. (nn) 
182€ e 018405 BC,nn 
02 (8C),A 4E C,(HL) 
12 (DE),A DD4E05 C.(1X+d) 
7 (HL),A FD4E05 C¡(1Y+d) 
70 (HL),B 4F C,A 
21 (HL),C 48 CB 
72 (HL),D 49 c,C 
73 (HL),E 4A C,D 
74 (HL),H 48 C,E 
75 (HL).L 4C C,H 
3620 (HL) n 4D c.L 
DD7705 (1+d),A 0E20 C.n 
DD7005 (1X+d),B 56 D,(HL) 
DD7105 (1X+d),C DD5605 D,(1X+d) 
DD7205 (1X+d),D FD5605 D,(1Y+d) 
ED46 DD7305 (1X+d),E 57 D,A 
ED56 DD7405 (1X+d),H 50 D,B 
ED5E DD7505 (10+d),L 51 D,C 
ED78 A,(C) DD360520 (1X+d),n 52 DD 
ED40 B.(C) FD7705 (LY+d),A 53 D.E 
ED48 C.(C) FD7005 (1Y+d),8 54 D,H 
ED5O D.(C) FD7105 (1Y+d),C 55 DL 
ED58 EC) FD7205 (1Y+d),D 1620 D.n 
ED6O H,(C) FD7305 (1Y+d),E ED5B8405 DE (nn) 
ED68 L,(C) FD7405 (IY+d),H 118405 DE nn 
34 (HL) FD7505 (IY+d),L 5E E,(HL) 
DD3405 (1X+d) FD360520 (1Y+d),n DD5E05 E(IX+d) 
FD3405 (1Y+d) 328405 (nn),A FD5E05 E,(1Y+d) 
3C A ED438405 (nn),BC 5F 
04 ED538405 (nn), DE 
03 228405 (nn), HL 
oc DD228405 (nn) 1X 
14 FD228405 (mm), 1Y 
13 ED738405 (nn),SP 
1 0A A.(BC) 
24 1A A,(DE) 
23 7E A,(HL) 
DD7E05 A,(1X+d) DD6605 H,(10X+d) 
FD7E05 A,(1Y+d) FD6605 H,(IY+d) 


CODIGO 
OBJETO 


67 


60 
61 


62 
63 
64 


65 

2620 
2A8405 
218405 
ED47 
DD2A8405 
DD218405 
FD2A8405 
FD218405 
6E 
DD6E05 
FD6E0S5 
6F 


FDB605 
B7 
BO 
81 
B2 
B3 
B4 
BS 
F620 
ED8B 
EDB3 
ED79 
ED41 
ED49 
ED51 
ED59 
ED61 
ED69 
D320 
EDAB 
EDA3 
Fi 
c1 


INSTRUCCION 
FUENTE 


LA 

IX (nn) 
1X nn 
1Y (nn) 
Y nn 
L,(HL) 
L,(1X+d) 
L.(1Y+d) 
LA 
LB 
L,C 
L.D 
L,E 
LH 
LL 
£,jn 
RA 
SP.(nn) 
SP,HL 
sp, IX 
SP, IY 
SP nn 


CODIGO 
OBJETO 


DDCB0586 
FDCB0586 
CB87 
CcB80 
CB81 
CcB82 
CB83 
CB84 
CB85 
CB8E 
DDCB058E 
FDCBO058E 
CB8F 
CB88 
CB89 
CB8A 
CB8B 
cB8c 
CcB8D 
CB96 
DDCB0596 
FDCB0596 
CB97 
CB90 
CB91 
CB92 
CB93 
CB94 
CB95 
CB9E 
DDCBO0O59E 
FDCBO059E 
CB9F 
CB98 
CB99 
CB9A 
CB9B 
cB9c 
CcB9D 
CBA6 
DDCBO05A6 
FDCBOSA6 
CBA7 
CBAO 
CBA1 
CBA2 
CBA3 
CBA4 
CBAS 
CBAE 


INSTRUCCION 
FUENTE 


0,(1X+d) 
0,(1Y+d) 
O0,A 
0,B 

0,C 

0,D 

0,E 

0,H 

O,L 
1,(HL) 
1,(1X+d) 
1,(1Y+d) 
1,A 

1,8 

1,C 

1,0 

1,E 

1,H 

1L 

2, (HL) 
2,(1X+d) 
2,(1Y+d) 
2,A 


3,(1X+d) 
3,(1Y+d) 


4,(1X+d) 
4,(1Y+d) 
4,A 
4,8 


CODIGO 
OBJETO 


DDCBOSAE 
FDCBOSAE 
CBAF 
CBA8 
CBA9 
CBAA 
CBAB 
CcBACc 
CBAD 
CBB6 
DDCB0586 
FDCB05B6 
CBB7 
CBBo 
CBB1 
CBB2 
CBB3 
CBB4 
CBB5 
CBBE 
DDCB05BE 
FDCBO05BE 
CBBF 
CBB8 
CBB9 
CBBA 
CBBB 
cBBc 
CcBBD 

C9 

D8 

F8 

DO 


ED4D 
ED45 
CB16 
DDCB0516 
FDCB0516 
CB17 
CcB10 
cB11 


INSTRUCCION 
FUENTE 


5,(1X+d) 
5,(1Y+d) 
5,A 
5,8 

5,C 

5,D 

5,E 

5,H 

5,L 
6,(HL) 
6,(1X+d) 
6,(1Y+d) 
6,A 

6,8 

6,C 

6,D 

6,E 

6,H 

6,L 

7, (HL) 
7,(1X+d) 
7, (1Y+d) 
7,A 

7,8 

7,C 

7,D 

7,E 

7,H 
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CODIGO INSTRUCCION CODIGO INSTRUCCION CODIGO INSTRUCCION 
OBJETO FUENTE OBJETO FUENTE OBJETO FUENTE 


07 FDCBO5CE 1,(1Y+d) FDCBO5FE 7.(1Y+d) 
ED6F cacF CBFF 7,A 
CB1E (HL) CBC8 CcBF8 7.8 
DDCB051E (1X+d) CBC9 y CBF9 
FDCB051E (IY+d) CBCA : CBFA 
cB1F CBCB ; CBFB 
cB18 cBce A CcBFC 
CcBcD 1L CBFD 
CBD6 2. (HL) CB26 
DDCB05D6 2,(1X+d) DDCB0526 
FDCB05D6 2,(1Y+d) FDCB0526 
CBD7 2,A CB27 
CcBDO 2,8 cB20 
CBD1 ] CB21 
CBD2 ' cB22 
CBD3 CB23 
CBDA4 CB24 
CBD5 CB25 
CBD8 : CB2E 
CBDE DDCB052E 
DDCBO5DE 3,(1X+d) FDCB052E 
FDCBO5DE 3,(1Y+d) CB2F 
CcBDF CB28 
CBD9 ' CB29 
CBDA a CB2A 
CBDB ; CB2B 
cBDc cB2c 
CBDD CcB2D 
CBE6 CB3E 
DDCBO05E6 4,(1X+d) DDCBO053€E 
FDCBO5E6 4,(1Y+d) FDCBO53E 
CBE7 4,A 

CBEO 4,8 

CBE1 4,0 

CBE2 4,D 

CBE3 4,€ 

CBE4 4,H 

CBE5 4,L 

CBEE 5,(HL) 

DDCBO5EE 5.(1X+d) 

FDCBO5EE 5,(1Y+d) 

CBEF 5,A 

CBE8 5,8 

CBE9 


A,(1X+d) 
A,(1Y+d) 
AJA 
AB 
A,C 
AD 
A,E 
A,H 
A,L 


HL,BC 
HL,DE CBEA 


HL,HL CBEB 
HL,SP cBEc 
CBED 
O.(HL) CBF6 
DDCBO05C6 0,(1X+d) DDCBO5F6 
FDCBO5C6 0,(1Y+d) FDCBO5F6 
CcBC7 CBF7 
caco j CcBFO 
CcBc1 CBF1 
CBC2 CBF2 
CBC3 CBF3 
CBCca E CBF4 
CBCc5 CBF5 
CBCE CBFE 
DDCBO5CE DDCBO5FE 7,(1X+d) 


(Cortesía de Zilog Inc.) 


3. Efecto de las 
instrucciones sobre 
los flags 


INSTRUCCION 


ADC HL, SS 
ADX s, ADD s 


ADD DD, SS 
AND s 
BIT b, s 


CcF 
CPD, CPDR; CPI; CPIR 


CP s 

CPL 

DAA 

DEC s 

IN r, (C) 
INC s 

IND; INI 
INDR INIR 
LD Al; LD A,R 
LDD, LDI 
LDDR; LDIR 
NEG 

OR s 

OTDR; OTIR 
OUTD; OUTI 


RLA; RLCA; RRA; RRCA 
RLD; RRD 


RESULTADOS 


Suma de 16 bits con acarreo. 
Suma de 8 bits; suma con aca- 


Suma de 16 bits. 
Operaciones lógicas. 


El estado del bit b de la direc- 
ción S es copiado en el flag Z. 


Complementa el acarreo. 


Instrucciones de búsqueda de 
bloques. Z=1 si A=(HL); en 
otro caso, Z=0. P/V=1 si 
BC+0; en otro caso, P/V=0. 


Compara el acumulador. (Regis- 


Complementa el acumulador. 
Convierte a BCD al acumulador. 
Decremento para 8 bits. 
Entrada con direccionamiento 


Incremento para 8 bits. 

Entrada de bloques: Z=0 si 
B+0; en caso contrario, Z=1. 

Entrada de bloques: Z=0 si 
Bx%0; en caso contrario, Z=1. 


IFF: El contenido del flip-flop 
que habilita las interrupciones es 
copiado en el indicador P/V. 


Instrucciones de transferencia de 
bloques. P/V=1 si BC%0; en 
caso contrario, P/V=0. 


Niega el acumulador. 


OR lógica al acumulador. 


Salida de bloques: Z=0 si B+0; 
de otra forma, Z=1. 


Salida de bloques: Z=0 si 
B+0; de otra forma, Z=1. 


Rotación del acumulador. 


H 
Xx 
ld 
rreo. 
Xx 
1 
1 
a, lo XX 
HIAJ* Xx 
HIVIAHA ld 
tro A.) 
=|-|— 1 
ARIPIX A 
AIVIA ld 
RIPIA 0 
indirecto. 
HIVIA ld 
H|Xj|X Xx 
1 Xx |X Xx 
A JIFF|A 0 
X|AJX 0 
XxX |O0|xX 0 
"HIVI|IA ld 
HIP |IA 0 
1 Xx |X Xx 
H|X|x Xx 
= |— |— 0 
APA 0 


Rotación de bits a izquierda y 
derecha. 
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RLS; RLCs: RRs; RRCs; 
SLAs; SRAs; SRLs 


Rotación y desplazamiento de la 
dirección s. 


SBC HL, SS Diferencia con acarreo para 16 
bits. 

SscF Activa el acarreo. 

SBC s; SUB s Diferencia con acarreo para 8 
bits. 

XOR s OR-exclusivos del acumulador. 


Símbolo 


OPERACION 


P/V 


<x—=o| 


n 


Indicador o flag de acarreo. C=1 si la operación produce un 
acarreo del bit más significativo del operando o del resultando. 
Indicador de cero. Z=1 si el resultado de la operación es cero. 
Indicador de signo. S=1 si el bit más significativo del resultado 
es uno, esto es, si es un número negativo. 

Flag de paridad o de desbordamiento. El mismo indicador es 
compartido para la paridad (P) y para el desbordamiento (V). 
El flag se verá afectado como paridad con operaciones lógicas, 
mientras que las operaciones aritméticas lo afectan como indi- 
cador de desbordamiento del resultado. 

Cuando P/V contiene la paridad, P/V=1 si el resultado de la 
operación es par; P/V=0 si el resultado es impar. 

Cuando P/V contiene el desbordamiento, P/V=1 si el resultado 
de la operación provoca un desbordamiento. 

Indicador de medio acarreo. H=1 si la operación de suma o 
resta provoca un acarreo del bit 4 del acumulador. 

Flag de suma/resta. N=1 si la operación anterior fue resta. 
H y N son utilizados conjuntamente con la instrucción (DAA) 
de ajuste a modo BCD, para obtener resultados apropiados a 
este formato BCD. Los operandos de la suma o resta también 
deben estar en el formato BCD. 

El flag queda afectado de acuerdo con el resultado de la opera- 
ción. 

El indicador no es afectado por la operación. 

El indicador es colocado a cero (=0). 

El indicador es colocado a uno (=1). 

Resultado desconocido para el indicador. 

El indicador P/V es afectado de acuerdo con el desbordamiento 
del resultado de la operación. 

Cualquiera de los registros de la CPU: A,B,C,D,E,H,L. 
Cualquier posición de 8 bits para todos los modos de direccio- 
namiento permitidos por ese tipo de instrucción. 

Cualquier posición de 16 bits para todos los modos de direccio- 
namiento permitidos por esa instrucción. 

Registro de refresco. 

Número de 8 bits en la gama 0-255. 

Número de 16 bits en la gama 0-65535. 
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CARVAR, 49, 53, 186. 
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Códigos de control, 199-201. 

CPU, 17,.-22.-35, 87, 157, 165. 
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DEFM, 10. 
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DESPDER, 91, 94, 
DESPIZR, 94, 101, 105. 
Desplazamiento hardware, 73. 
Desplazamiento software, 73. 
DESPVR, 102, 105. 
DEVPAC, 9, 11. 

DRAW, 111. 

DSPDERR, 98, 101, 105. 


EBINA, 35. 

EBINHL, 36. 

ECADEN, 27-29, 31, 58, 191. 
ECONTR, 29-31. 


EDECA, 41. 
EDECH, 43. 
EDECHL, 42, 191. 
EHEXA, 38, 40. 


EHEXHL, 39-40. 

ENCUENTRA, 186, 188, 191-192. 
ENTER, 122, 151. 
ESCRIBCASS, 173-174. 
ESPEJOV, 54, 57. 

ESPERAT, 149. 

ESTADO, 146. 

EVERY, 94, 134, 

E/S, 158. 


FIGRAF, 58, 60, 67. 

Figura, 58. 

Firmware, 75-77, 83, 87, 91, 9, 
115. 

Flag, 109, 111. 

Flags, 36. 


GCADEN, 31, 33-34, 

Generador programable de soni- 
do, 158. 

GET, 144. 

GPLUMA, 127. 

GPS, 157-160, 162, 164-165. 

GRAPLUMA, 34-35, 66. 


Hardware, 76. 
HIMEM, 15. 
HISOFT, 9. 
HONEY FOLD, 9. 


INKEY, 143. 

INKEYS, 143. 

INPUT, 149. 

Instrucción RET, 24. 

Instrucciones CALL, 60. 

Instrucciones y códigos operati- 
vos, 203-206. 

INTROCAD, 151-152, 188, 

IZDES, 88, 92, 94, 101. 


KEY, 143. 


LDDR, 87-88. 
LDESPO, 80. 
LDESP1, 80, 82. 
LDESP2, 78, 80. 
LDIR, 87-88. 
LEECASS, 174-175, 179, 
LEECASS2, 176. 
LEEROM, 184, 186. 
LEFTS, 70. 
LIMPBUF, 148. 
LINLLENA, 124. 
LOAD, 174. 
Longitud, 192. 


Manual de firmware del Amstrad, 
54, 

Memory pool, 54. 

Microprocesador Z-80, 7. 


NORESET, 143. 


Offset, 76. 

OFG, 9. 

Orden CALL, 20, 22, 31. 
Orden MEMORY, 15-16. 
Orden PEEK, 21. 

Orden POKE, 13, 21. 
Orden PRINT, 27. 

Orden PRINT HIMEM, 15. 
Orden TAG, 31. 


PAPEL, 184, 


PARAMETROS, 16. 

PAUSA, 196. 

PCANJE, 116-117. 

PEEK, 184. 

PINVIERT, 113. 

Pixel, 112. 

PLAY, 169. 

PLOT, 111, 132. 

POKE, 132-133, 184, 187. 

PONESP, 94. 

PPI, 158. 

PRINT, 187, 192. 

Programación avanzada del Ams- 
trad, 54. 


RAM, 15, 19, 53-54, 114-115, 123, 
184, 186. 

RCARAC, 110. 

REGISTRO, 159. 

REM, 187, 192. 

RET, 144. 

RIGHTS, 70. 

ROM, 17, 21-23, 45, 53-54, 65, 
110, 123, 154, 159, 170, 184, 186, 
193, 

RSX, 193-194. 

RSX1, 195. 

Rutina CALL, 14. 


SAVE, 173. 
SCR CHAR LIMITS, 110. 


SCR FILL BOX, 122. 

SCR FLOOD BOX, 123. 

SEGUNDAP, 114, 116. 

Sentencia CALL, 16-17, 20, 48, 61, 
63. 

Sentencia DATA, 14. 

Sentencia MOVE, 53. 

Sistema operativo, 21, 23. 

Software, 76, 169. 

SPRITE, 128. 

SWSCROLL, 77, 79, 83, 94. 

SYMBOL, 30. 

SYMBOL AFTER, 16. 


TAG, 135. 

TEMP, 129. 

TIEMPO, 181-182. 
TIME, 181, 183. 
TINTA, 184. 

TRIANG, 61. 

TXT GET MATRIX, 54. 


VDESPLZ, 73. 
VERIFICA, 178. 


XOR, 128-129, 132-134, 
Z-80, 21. 


/BARRE, 194, 
/CLS, 194, 
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ANAYA MULTIMEDIA 
Colección «MICROINFORMATICA» 


Angell, l. O. y Jones, B. J.: DISEÑO DE GRAFICOS Y VIDEOJUEGOS (incluye 
cassette). 

Beechhold, Henry F.: EL LIBRO DEL HARDWARE. No destape su ordenador per- 
sonal... sin leer antes este libro. 

Birmingham Educational Computing Centre: INTRODUCCION A LA TECNO- 
LOGIA DE LA INFORMACION. PREINFORMATICA. 

Bishop, Peter: PROGRAMACION AVANZADA EN BASIC. 

Brown, Peter: PASCAL A PARTIR DEL BASIC. 

Cavalcoli, Aldo: EL ORDENADOR PERSONAL: COMO ELEGIRLO Y UTILIZARLO. 

Coccione, L. y Winter, G.: LOS ORDENADORES NO MUERDEN. 

Dachslager, H., Hayashi, M. y Zucker, R.: PROGRAMACION EN BASIC: UN 
METODO PRACTICO. 

Dewhirst, J. y Tennison, R.: TU PRIMER LIBRO DEL ZX SPECTRUM. 

D'Opazo, J. y Grupo GOLEM: PROGRAMACION EN LOGO. 

Durst, J.: «SPRITES» Y GRAFICOS EN LENGUAJE MAQUINA (ZX SPECTRUM). 

Galende Domínguez, F.; Sánchez López, A.; Alfaraz López, M. y Sánchez 
García, J. A.: COMETAS EN TU MICRO: EL HALLEY. Cálculos de órbitas y pará- 
metros de cometas en BASIC, 

Gavin, Maurice: ASTRONOMIA: EL UNIVERSO EN TU ORDENADOR. 

Gibbons, John P.: PROGRAMACION AVANZADA DEL COMMODORE 64. Am- 
pliación del BASIC y rutinas gráficas. 

Greenwood, Gareth: CODIGOS Y CLAVES SECRETAS. Criptografía en BASIC. 

Hammond, R.: EL ORDENADOR Y TUS HIJOS. 

Hartnell, Tim: EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENADOR. 

Hartnell, Tim: INTELIGENCIA ARTIFICIAL: CONCEPTOS Y PROGRAMAS. 

Hartnell, Tim: EL LIBRO GIGANTE DE LOS JUEGOS PARA ZX SPECTRUM. 

Hartnell, Tim, y otros: EL LIBRO GIGANTE DE LOS JUEGOS PARA DRAGON. 

Hartnell, Tim: EL SUPERLIBRO DE LOS JUEGOS PARA ORDENADOR. 

Heller, R. S. y Martin, C. D.: BITS Y BYTES: INICIACION A LA INFORMATICA. 

Hollerbach, Lew: MICROINFORMATICA: CONCEPTOS BASICOS. 

Hurley, R.: JUEGOS GRAFICOS DE AVENTURA PARA ZX SPECTRUM. 

Johnson, David: DESCUBRE LAS MATEMATICAS CON TU MICRO. 

Johnston, J.: MICROS: TAMAÑOS, FORMAS Y SABORES. 

Johnston, J.: MICROS: BIPS, PITIDOS Y LUCES. 

Johnston, J.: MICROS: MENUS, BUCLES Y RATONES. 

Kosniowski, Czes: MATEMATICAS DIVERTIDAS EN BASIC. 

Kramer, S.: PROGRAMACION AVANZADA DEL ZX SPECTRUM. 

Lacey, Andrew: LIBRO GIGANTE DE LOS JUEGOS PARA MSX. 

Núñez, Agustín: PROGRAMACION DEL INTERFACE 1 Y MICRODRIVE. 

Otero, M. A.; Pueyo, M. A. y Cajaraville, J. A.: PRIMEROS PASOS EN LOGO. 
El mundo de la tortuga Fan. Libro del profesor. Libro del alumno. 

O'Shea, T. y Self, J.: ENSEÑANZA Y APRENDIZAJE CON ORDENADORES. Inte- 
ligencia artificial en educación. 

Pentiraro, Egidio: EL ORDENADOR EN EL AULA. 

Pritchard, Joé: DESCUBRE TU MSX. Programación y aplicaciones. 

Pritchard, Joe: LENGUAJE MAQUINA MSX. Introducción y conceptos avanzados. 

Rosso, Vincenzo de: COMO SE PROGRAMAN LOS ORDENADORES. 

Sato, T.; Mapstone, P. y Muriel, 1.: MSX: GUIA DEL PROGRAMADOR Y MA- 
NUAL DE REFERENCIA. 

Servello, Fausto: ¿QUE ES LA TELEMATICA? 

Snover, $. L. y Spikell, M. A.: JUEGOS MATEMATICOS DE INGENIO EN BASIC. 

Thomasson, Don: PROGRAMACION AVANZADA DEL AMSTRAD. Entradas y sa- 
lidas de la ROM. 

Webb, David: LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM. 

Zaks, Rodnay: EL LIBRO DEL BASIC. 


¡Dale a tu AMSTRAD CPC 464/664/6128 toda la potencia del lenguaje 
máquina sin esfuerzo!: RUTINAS EN LENGUAJE MAQUINA PARA 
AMSTRAD te facilita el acceso a las entrañas de tu microordenador. 


Si estás empezando a profundizar en la programación de tu AMSTRAD 
encontrarás en el libro multitud de rutinas máquina que producen 
efectos absolutamente sorprendentes y con las que podrás desarrollar 
fácilmente multitud de aplicaciones y programas de calidad profesional. 


, 


Si eres un programador habitual en código máquina, RUTINAS EN 
LENGUAJE MAQUINA PARA AMSTRAD reducirá a la décima parte 
el tiempo medio de desarrollo de programas, ya que encontrarás 
resueltas todas las rutinas habituales de manipulación de cadenas, 
operaciones de teclado, pantalla, etc. 


A lo largo del libro encontrarás, además, rutinas e información 
exhaustiva sobre: 


— Manipulación de caracteres y composición de gráficos. ' 

— Rutinas firmware y software de desplazamiento de pantalla. 

— Técnicas gráficas avanzadas: canje de pantallas, rellenado, 
caracteres multicolores. 

— Programación del GPS, registros de sonido del firmware, efectos 
de sonido. 

— Rutinas de manipulación del cassette. 

— Ampliación del sistema residente. 


RUTINAS EN CODIGO MAQUINA PARA AMSTRAD te llevará de la 
mano más allá de los límites del BASIC a los dominios del sistema 
operativo de tu ordenador, donde conseguirás la máxima rapidez y 
eficiencia para tus programas. 
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